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MODULE GETQUI ites BRE TOUT, service’ 


BEGIN 


! 
VORA ARERR RRAREARERERE RAH AEAAAAAAAAEAAAEE THERE AEA EATER KARAARARe AAA eAeeeeee 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og he 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bic ENSE AND WITH THE 
!® INCLUSION OF THE ABOVE Spit NOTICE. THIS SOFT WARE OR ANY OTHER 


S3sssssss 


PWN | O OONA VE WN HO ODNOAUS WN “OOONOUS WN 
VFWN—ODOONOAUS WO 0O@ 


: 1 

; 1 

: 1 

3 1 

Py 1 a 
Py 1 e 
$ 1 001 1 * 
Ros Ba 
5 a 
3 1 i 1 * 
$ 1 001 1 * 
> e 0015 1 * 
oF 0016 1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
oa 3 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; } ef : be TRANSFERRED. * 
3 'e e 
we 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 2 002 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ca a O05 ' be CORPORATION. * 
; es * 
3 $ Bos 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Pale 00 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
c+ a $358 1 Ie * 
‘Year 0027 1 !* * 
: 2 0028 #1 PITITITIIITILI LLL LLL LLL LLL LLL LLL LLL LLL Lie 
; 0029 1: 

5 5 $080 1 

3 0031 1 !+4+ 

23 itt) 1 | FACILITY 

pe 0033 1! Job controller. 

ae 0034 1! 

3 FH 0035 1 ! ABSTRACT: 

3 $ O38 : : This module contains the routines that implement the S$GETOUI service. 
3 § 0038 1 ! ENVIRONMENT: 

; 0039 1! VAK/VMS user and kernel mode. 

:; 40 0040 1 !-- 

: «(41 0041 1! 

; 4g ope ' : AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 

3 44 8 44 1 ! MODIFIED BY: 

; 65 45 1! 

: 646 poeg 1! V04-001 JAK0236 J A Krycka 14-Sep-1984 

; rt 4 08 4 : Collect more sara information. 

; «649 0049 1! v03-011 JAKO229 rycka es -1984 

; 30 Bpee ! Collect additional go tates information. 

3 26 0084 1! v03-010 JAK0220 Koken 18-Jul-1984 

; 5 0055 1! Add support for sues PAGINATE and SJC$_NOPAGINATE item codes 
; $e 0035 : for queue level operations. 

; B28 1! V03-009 JAK0219 ryeke 17-Jul-1984 

; 9 0057 1! Track changes in ” sOect DEF .REQ and add QUIS_RESERVED_xxx codes. 


<a 
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SGETQUI service 1ecSep=19be 29:88:26 — ESdactussneSce tall -032; 


sa 
se 


current batch job functi ions. 


v0O3=001 MLJ0115 _. Martin L. Jack, 30-Jul-1983 
Changes for job controller baselevel. 


: 1! 

g 38 33 1! v03-008 KPL0001 P Lieberwirth 9-Jul-1984 

; 60 13 Protect QUI_DISPLAY_FILE against common form of corrupted queue 
3; 68} BI file by racetully Randling case where SJH is corrupt and has 
.<¢ 94 1} a zero FILE_LIST pointer. Note: Other changes made at this 

: o7 Ser : time in other modules will reduce frequency of this corruption. 
: 65 065 1: V03-007 JAK0213 rycka 18-May-1984 

3 66 066 1! Use newly ented teks CNODLCKBLK ine deadlock on ata 2 ~— 
r 67 0067 1! option on enqueue service calls that specify a blocki 

: os 0089 : } routine that will immediately relinquish the lock. 

; 0 $90 1 i v03-006 JAKO211 Erycka 14-May-1984 

3 4! Boos : Continuation of ¥03-00 

es, 0073 1: v03-005 JAK0210 J A Krycka 10-May-1984 

3 ie Bare : Conditionally set ROP record locking potions. 

oe 0076 1! V03-004 JAK0209 JA Krycka 09-May-1984 

3 a Bere : Log diagnostic tatoraation in DIAG_TRACE vector. 

: 79 0079 1: V03-003 GRRO0O4 Gregory R. Robert 27-Sep-1983 

; Bo ses : } Synchronize AST Level use of QUEUE RAB with non-AST level. 

; 0082 1: vO3-002 MLV0118 Martin L. Jack, 23-Aug-1983 

; 83 008 } Change field names, update for symbiont changes, implement 

: 1 

3 1! 

3 1! 

: 1! 

$ 1! 
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voa-001 12286871382 9939334 JOBCTL SRE IGETOUL 83229 9 12) 

; 9 1 REQUIRE ‘SRC$:JOBCTLDEF'; : 
; % 131 1 : 
+. 11 1 ‘ 
7; 1133 1 FORWARD ROUTINE : 
; (95 1134 1 GETQUI_LOCK: NOVALUE, : 
; %6 1135 1 GE TQUI “UNLOCK NOVALUE , : 
; (9 1136 1 CETOUI ~ SYNCHRONIZE: NOVALUE , : 
: 98 1137 1 GETQUI “RELEASE : NOVALUE , : 
; 99 1138 1 UPDATE ~GETQUI_LOCKS NOVALUE , : 
: 100 1139 1 DATE-GETQUI “DATA: NOVALUE , ; 
: 161 1140 1 GETQUI “BLOCKING _AST: NOVALUE , 
; 198 1141 1 WILD_SEARCH_NAME : 
: 10 1146 1 RETURN_PARAMETERS: NOVALUE, : 
: 104 1145 «#1 RETUR ‘ 
: 105 1144 1 QUI OPERA | : 
: 106 1145 1 aul “DISPLAY. OE HARACTERISTIC, : 
> 10 1146 1 QUI“DISPLAY“FILE, : 
; 108 1147 #1 QUI _DISPLAY_FORM, ‘ 
> 109 1148 1 QUI“DISPLAY~J : 
: 110 1149 1 QUI“DISPLAY- QUEUE, : 
: 111 1150 1 QUI-RESERVED_FUNC_1, : 
: 18 1151 1 QUIRESERVED-FUNC-2, | : 
o) oe 1138 1 QUI" TR SLATE QU Oe. ‘ 
> 114 1153 1 PROCES : 
: 115 1154 1 PR Oces ss ~Geroul. ITEM. LIST, | : 
> 116 1155 1 : 
: 117 1156 1 GETOOI SERV : 
: 118 1157 1 DELETE “GET oul © Context: NOVALUE , : 
3; 4119 1158 1 DELETE_OPEN_GETQUIS: NOVALUE ; : 
: 120 1159 1 | : 
3 tel 1160 1 . 
; 182 1161 1 EXTERNAL ROUTINE : 
: 12 116 1 LLOCATE_MEMORY, : 
; ise 1163 1 CHECK A R_ACCESS, é 
> 125 1164 1 OMPLETE_SRB_OUTPUT_ITEM: NOVALUE, : 
> 126 1165 1 REATE SRB: NOVALUE , | : 
: 127 1166 1 CREATE SAB MEMO NOVALUE, ‘ 
: 128 1167 1 FETCH VARIABLE DATA: NOVALUE ‘ 
: 129 1168 1 FIND PROCESS DATA: L oOUTPUT.3, | : 
: 130 1169 1 CATE SRB_ OOTPuT _ ITEM, ' | : 
: 131 1170 1 LOCK ADE UE-FILE: NOVALUE , : 
: 13¢ 1171 1 OR : 
cs 1178 1 RELEASE RECORD NOVALUE , : 
.>% 1173 1 SEND SERVICE RESPONSE _MESSAGE: NOVALUE, ; 
; 135 1174 1 SIGNAL FILE ERROR: NOVALUE , : 
* 1175 1 SYMBIORT CORPLETED BLOCKS, : 
ee 1176 1 UNLOCK OOEU E FILE: NOVALUE , : 
: 138 1177 1 VALIDATE “OBJECT _NAME ; : 
> 139 1178 1 : 
: 140 1179 1 : 
> 141 1180 1 LINKAGE : 
: 148 1181 1 FMGSMATCH_NAME LINKAGE = : 
> 14 118¢ 1 JSB(R (REGISTER: m REGISTER=3, REGISTER=4, REGISTER=5); : 
+ 144 1183 1 : 
: 145 1184 1 ‘ 
: 146 1185 1 EXTERNAL ROUTINE : 
: 14 1186 1 FMGSMATCH_NAME: FMGSMATCH_NAME_LINKAGE ADDRESSING_MODE (GENERAL) ; ; 
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GQ = 
GOC" INTERVENING_BLOCKS= 
GOC_ INTERVENING_JOBS= 


GOC_K_LENGTH= 
GQC~K~NONE= 
GOQC"K~CURRENT= 


GQL_LINK= 
GQL_RECNO= 


GOL "BOF F = 
GOL "REF COUNT= 
GOQL“LKID= 


GOL_K_LENGTH= 
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198 


a 83:83:32 bactu’sréSce tout -a3e: 


to next block 
f requestor 


° 
s 
card eperetton progress 
card characteristic 
card form 
sore ue 


bit advancing context 
before a wildcard scan 
since a List deletion has 
already done so 


i Record number of SCX 
! Byte offset of SCE 
' Record number of SFX 


! Byte offset of SQE 

' Record number of SMQ 

' Queue type eetae searched 
' Record number of SJH 

' Record number of SQR 

! Intervening pending blocks 
! Intervening pending jobs 


Length of structure 
Queue search beginning 
Searching current queue 
Searching pending queue 
Searching timer queue 
Searching hold queue 
Queue search done 


Link to next 
Record number 
Byte offset 
Reference count 
Lock ID of lock 


Size of GQL entry 
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; : ! 38 ! ROUTINE GETQUI_LOCK(REC_N,REC): NOVALUE= : 
: 260 1 38 1 !+4 : 
; 61 129 1: ° 
> 26 1300 1 ! FUNCTIONAL DESCRIPTION: ‘ 
; o7 ; 0 : } This routine locks a specified record against modification. ‘ 
: 265 1 : 1 ! INPUT PARAMETERS: : 
: 26 1306 1! REC_N - Record number of record. : 
; 44 ; 05 : } REC - Address of record. : 
; ? 1 8 1! IMPLICIT INPUTS: : 
; 0 1308 1! NONE : 
; 271 1309 1! : 
: 2? 1310 17 ! OUTPUT PARAMETERS: : 
s ef 1311 1! NONE ; 
3; 274 1 \¢ 1! : 
3; ¢f> 1315 1! IMPLICIT OUTPUTS: : 
: 276 1314 1! NONE : 
: 277? 1315 1! | ; 
; 278 1 1§ 1 ! ROUTINE VALUE: . 
; 279 1317 1! NONE | : 
: 280 1318 1! : 
; 281 1319 1 ! SIDE EFFECTS: ; 
; see 1320 1! NONE : 
; 28 1321 1! ‘ 
; sae 1 $8 1 fee ; 
; 85 132 1 | ° 
; 386 1324 2 BEGIN | : 
:; 287 135? LOCAL : : 
; 288 1326 . ! Pointer to previous forward Link ; 
: 289 1360 GQ REF BBLOCK, ! Pointer to $GETQUI lock block | : 
: 290 1328 RESNAM: BBLOCKL6), ! Resource name : 
: 291 13¢) DESC: VECTOR(2), ! Descriptor for resource name | ‘ 
; 4 1330 LKSB: BBLOCK(8], : Lock status block : 
: 29 1 =) STATUS; ! Status return | ; 
Py 94 1 ¢ | € 
3 a3 133 ; : | : 
; $38 133e : Ensure that the record number constitutes a valid lock. | : 
; 298 36 if -REC_N LEQU SQHSK_RECNO : 
: : 
; 300 1338 RETURN; : 
: 01 1339 : 
$ 8 1340 : 
$ 4 13! Construct the resource name from the record number and the byte offset. : 
: 305 1303 RESNAMCO,0,32,0) = .REC_N; ‘ 
3 06 1344 RESNAM(4,0,16,0] = .REC<0,9>; : 
. int : 
; +5 : ¢3 ; Search the active SGETQUI lock block list for the specified resource. : 
; «311 1349 PREV = GQL_ACTIVE LIST; “ 
; \ : 29 WHILE ..PREV NEQ 0 DO : 
3; «314 1352 GQL = ..PREV; : 
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JOBCTL. Ogre 


CASE cuecoer ane f 
ZALLOCATION(RESNAM), GQLCGQL_RECNO], 
pont GN RESIN RESNAM) 
-1): 
EXITLOOP; 
ode 
ores 
Sr eenene COUNT = .GQLCGQL_REFCOUNT] + 1; 
END; 


“JbReV = GOLCGQL_LINK]; 


! If the lock block free List is empty, allocate a page of memory 
and transform it into free lock blocks. 


if es -FREE_LIST EQL 0 


ENBEGIN 
3; FREE_LIST = ALLOCATE_MEMORY(); 


al .GQL ~FREE LIST+#512-2*GQL_K_LENGTH TO .GQL_FREE_LIST BY GQL_K_LENGTH 
=e" = 7P + GOL_K_LENGTH; 


: | Reneve a lock block from the free List and initialize it. 


.GQL_FREE_LIST 
Gat FREE LIST = “Gatto. LINK); 
GoLTGa L_CINK) = ..PREV 

L. 


hey L; 
a GOL_RECNO) = <RESMAACO 0,32 0); 
a GQL “BOF F ESNANLS, 6.16.6 
GOLEGQL “REF COUNTS 

Take a lock on the resource. 
co} = = TALLOCATION(RESNAM) ; 

cf ESNAM; 

TUS = 


EFN= Ritts YNC_EFN 
EFM ABCOK Sy _PRMODE, 


: P 1410 LKSB=LKS8 ; 
: 37 P 1411 RESNAM =DESC, : 
: 37% P 141¢ FLAGS=LCKSM. NODLCKBLK ; 
: 375 P 141 PARID=~ (QUEDE_LOCK *tK§862)) , : 
: 37 P 1414 ASTPRM=.GQL, : 
: 37 1415 BLKAST=GE TGU1 BLOCKING_AST); : 
: 378 1416 IF aataty S THEN STATUS = .CKSBCO,0,16,0); : 
: 379 141 IF WO alt Rt : 
; 380 1418 THEN ; 
: 81 1419 SIGNAL (JBC$_COMREMJBC OR STSSK_ERROR, 0, .STATUS); : 
. oe : 
3 14 ‘ ' Save the lock ID. ° 
; 385 14 i : 
3; 386 1424 GOLCGQL_LKIDJ = .LKSBL4,0,32,0); ; 
: 387 1425 1 END; : 


-TITLE GETQUI S$GETQUI service 
-1DENT \V04-001\ 


-PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_STORAGE BASE: 
00000 DIAG_TRACE: 


-BL 96 

00060 DIAG_COUNT: | 
.B 96 

000CO DIAG_FLAGS: , | 
000C4 WORK_AREA: an Sk | 
OOOFO SNDUBC COUNT : ne | 
00174 GETQUI COUNT: | 
0019C SNDACC COUNT : i. | 
00188 SNDSMB_ COUNT = | 
00200 DIAG_sTORAGE END: | 
90200 AGS: <BLKB 4 
0204 IWAGE bu STSFLG: | 
00208 THIS -SYSiD: : | 
it§ 3 -BLKB 2 | 
00210 CUR_TIME: : | 
00218 HOURLY Tine: . | 
00220 HOURLY_PARAMS: a 
| 


LK 
00234 SYMBIONT_ COUNT: 
“BLKB 4 


04001 wetter doe pc ISSS0r1984 90:05:34 YMGIT BLisgcRE He 23743 Feet 


00238 QUEUE ofer ERENCE. ntl 
0023C MBX eee aes 


ange :  (BLKB d 
0520 MBX END:.BLKB 4 
0248 MEMORY ~FREE QUEUES: 
00270 NONAST_WORK K QUEUE : 
00278 BCB_FREE “St: 
0027C BCB_ACTIVE List: 
00280 GOQL_FREE TIst: 
00284 GOL_ACTIVE List: 
00288 OPEN_GETQUI LIST: 
0028C PROCESS DATA LIST: 
00290 SYMBIONT_CONTROL: 
00294 SPARE_AREA: 
002A0 REMOTE_REQUEST_L 
OO2A8 QUEVE_FILE_LKSB: 
00280 QUEVE_LOCK_LKSB: 
.BCKB 


on 


RSP -BLKB 
002CO JBC ~PRIORITY: 
002C4 JBC PRIVILEGES: 
0O02CC JBC_QUOTAS: 

-BLK 


EVO © FH WO © OAS Be RRR RRS 


-BLKB 
00310 JBC_UIC: .BLKB 
00314 QUEOE_FAB: 
-BLKB 80 
00364 QUEUE_RAB: 
LKB 68 | 
003A8 QUEUE _NAM: 
-BLKB 9% 
00408 QUEUE_xAB: 


-BLKB 88 
00460 QUEUE_RSA: 
BLKB 255 


0055F “BLK 
00560 QUEVE_ALG: 
00564 QUEUE MBF: 

00565 *BLKB 


<a 
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T0 SGETOUI service 16-Sep-1984 AX=11 Blisg-32 V4.0-74 Page 10 
vO4=001 14 stort get 99:93:22 ENOact °seeSce tour 103073 ne 3) 
00568 ACCOUNTING FABS: | 


-BCKB 
00570 ACCOUNTING RABS: 

.BCKB 8 
00578 ACCOUNT_FAB A: 


-BLRB 80 
005¢8 ACCOUNT_RAB A: - 
0060C ACCOUNT_NAM A: - 


-BLRB 
0066C ACCOUNT_RSA_A: 
-BLRB = 255 


00768 -BLKB 
0076C ACCOUNT_FAB_B: 2 
0078C ACCOUNT_RAB B: 
00800 ACCOUNT NAN 8: 
00860 ACCOUNT_RSA B: 

-BLRB 255 
0095F -BLKB 1 
00960 DIAG_FAB: 

LKB 80 


00980 DIAG_RABIC 
009F4 MBX_CHAN: 
009F8 MBX_I0SB: 
OOA00 MBX_BUFFER: re 
00E00 VALUE_STORAGE_BASE : 
00E00 ITEM_ PRESENT 7. 
0020 VALUE -GETQUI ase: 

00E20 VALUE _ACEGUNT ING MESSAGE: 
00E26 VALUE -ACEQUNT ING, TYPES: | 
OOE2A VALUE -AFTER TIME : 

00E32 VALUE -ALIGHMENT PAGES: | 
00E33 VALUE_BASE PRIORITY: | 
0034 VALUE “BATCH INPUT: 

QOE3A VALUE BATCH OUTPUT: 

00E44 VALUE “BUFFER COUNT: 

00E45 VALUE “ CHAPACTERISTIC _NAME : 
QOE4B VALUE “CHARACTERISTIC. _NUMBER : 


7 
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OOE4C VALUE CHARACTERISTICS: 
OOES5C VALUE “ene CKPDINT DATA: 
00E62 VALUE_CLi: 

00E68 VALUE cri DEFAUL | 
OOE6C VALUE_CPU LIMIT: | 
00E70 VALUE DESTINATION. QUEUE: 
00E78 VALUE DEVICE NAME : 

OOE7E VALUE_ENTRY NUMBER: 

00€82 VALUE ENTRY NUMBER_OUTPUT 
00E8C VALUE EXTEND QUANTITY: 
OOE8E VALUE_FILE COPIES: | 
OOE8F VALUE_FILE IDENTIFICATION: 

00EB3 VALUE_FILE SETUP MODULES: 
00EB9 VALUE FILE SPECIFICATION: 
OOEBF VALUE_FIRST PAGE: 

00EC3 VALUE FOR DESCRIPTION: 
00EC9 VALUE _FORM LENGTH: 

OOECA VALUE _FORM MARGIN_ BOTTOM: 
OOECB VALUE _FORR MARGIN. LEFT: 
O0ECD VALUE _FORR MARGIN RIGHT : 
OOECF VALUE _FORR MARGIN_ TOP: 
OOEDO VALUE FORM NAME: 
OOED6 VALUE_FORM_NUMBE 
OOEDA VALUE “Foi 
QOEE2 VALUE FORM SETUP 
OOEE8 VALUE Foi Stock; 
OOEEE VALUE FORK WIDTH: 
OOEFO VALUE -GENERIC. TA 


» "SO a = 
oa 


MODULES: 


Ts 


Be Se Se Oe Se Be Be Be Oe Be Oe Se Se Be Se Se SH Se Se Se Se Se Se Se Se Se Se Se Se Ge Fe Se Fe Se ae Se Se Se Se ee Se SH Se Se Se Se Se Se Se Se Se Se Se Se Se tease 


R: 
4 
8 
6 
6 
2 
R 
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GE 
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he S$GETQUI service 
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01204 
01205 
01206 
0120C 
012E2 
0126 
O12EA 
0124 
012F8 
O12FE 
01306 
0130C 
01312 
01318 
0131C 
01322 
01328 
0132E 
01334 
0133A 
01340 
01346 
0134C 
01352 
01353 
01359 
01350 
01363 
01369 


VALUE JOB COPIES: 
VALUE _J08 LIMIT: 
VALUE _J08 NAME 
VALUE_J08 RESET MODULES: 
VALUE JOB S1ZE_MAXIMUM: 
VALUE _J08 S1ZE MINIMUM: 
VALUE _JOB_STATUS_OUTPUT: 
VALUE _LAST PAGE : 

VALUE LIBRARY SPECIFICATION: 
VALUE LOG QUEUE : 

VALUE_LOG_ SPECIFICATION: 
VALUE _NOTE : 
VALUE _OPERATOR_REQUEST: 
VALUE_OWNER_UIC: 
VALUE_PAGE_SETUP 
VALUE _PARAMETER_ 
VALUE_PARAMETER_ 
VALUE _PARAMETER_ 
VALUE _PARAMETER_ 
VALUE _PARAMETER_ 
VALUE _PARAME TER_ 
VALUE _PARANE TER. 
VALUE_PARAMETER. 
VALUE PRIORI TY: 
VALUE PROCESSOR: 
VALUE _PROTECTION 
VALUE QUEUE: 
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MODULES: 


PP POONA OOUA SOW HO EF AMO OO 


. LK 
VALUE _QUEUE FILE SPECIFICATION: 


ae 


~BL 
VALUE _RELATIVE_PAGE: 


row 
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.BLKB 
0136D VALUE RESERVED. INPUT. 1: 
0136E VALUE_RESERVED_INPUT_2: 


-BLKB 
01370 VALUE_RESERVED_INPUT_3: 


01374 VALUE_RESERVED_INPUT_4: 
0137A VALUE_RESERVED_OUTPUT_1: | 
01384 VALUE -RESERVED_ OUTPUT _2: | 
0138E VALUE -SEARCH STRING: 
01394 VALUE ~SCENODE. NAME : 
0139A VALUE_WSDEFAULT: 
0139C VALUE “wsinent: 
0139E VALUE “wsdubta: 


LK 2 
013A0 VALUE_STORAGE_END: 
-BLKB” 0 


@amaoma 
— 2 zr 
Pat tat ta 


JBC$-WRITEERR= 66448 

VALUE_SEARCH_FLAGS= VALUE_GETQUI_BASE+760 
VALUE-SEARCH_NAME= VALUE_GETQUI~BASE+770 
VALUE =SEARCH WRBER® CATERER ace raul “BASE+780 


D TA 
-EXTRN LOCATE SRB_ OOTPUT ITEM 


TEXTRN READTRECOR RD. RELEASE _RECORD 
EX Ice eRESPONSE _MESSAGE 


E 
.EXTRN VALIDATE _OBJECT_NAME | 
-EXTRN FMGSMATCR_NAME, SYSSENQW | 


.PSECT CODE,NOWRT,2 
007C 00000 GETQUI_LOCK: | 
WORD 


. Save R2,R3,R4,R5,R6 : 1296 | 
55 00000000" EF 9€ 00002 MOVAB GQL_FREE_LisT. R$ ; 


os 


? | | 
CIS METOUL service Vesiect94s SB-96:34 YaSY Suagedfatt 052 reve 


SE 18 C2 00009 SUBL2 #24, SP : | : 

01 0% AC DT 000 CMPL RECN, M1 ; 1336 ; 

01 1A BGTRU 1 : | ; 

04 0001 RET : : 

10 AE 04 AC dO 00013 18 MOVE —REC_N, RESNAM : 1343) : 

50 08 AC 0 00 EF 0001 EXTZV #0,7#9, REC, RO ; 1344 : 
146 AE 30 80 001g MOVW RO, RESNAM+4 : | : 

56 04 AS 00 MOVAB GQL_ACTIVE_LIST, PREV > 1349 ; 

66 D0 Bose 2s TSTL (PREV) ; 1350. : 

16 1 00 BEQL 4 r j ; 

54 66 D0 000ZA MOVL. (PREV), GQL ; 1352) : 

10 AE 04 Ad 06 é 99 p CMPC3 #6, 4(GQL), RESNAM : 1354) : 
6 1A 000 BGTRU 3$ : | : 

09 1F 00035 BLSSU 4$ : ; 

OA Ab 86 06087 INCW 10(GQL) : 1366 

04 0003A RET : 1365) ; 

56 54 00 00038 38 MOVL  GQL, PREV : 1372 ; 

E6 11 O003E BRB 2$ : 1350 : 

65 D5 00040 4$ TSTL  GQL_FREE_LIST ; 1382 : 

20 12 00042 BNEG 86s 7$ ; : 

000000006 EF 00 FB 00044 CALLS #0, ALLOCATE_MEMORY ; 1385 ; 
65 50 DO 00048 MOVL GOL_FREE-LIST ; : 

50 65 000001FO BF C1 0004 ADDL3 #496, GOL_FREE_LIST, P ; 1386 : 
04 11 00056 BRB : : 

60 10 AD 9E 00038 58: MOVAB 16(RO), (P) ; 1388 ; 

50 10 C2 0005C 6$: SUBL2 #16, P : | : 

65 50 D1 O005F CMPL =P, GQL_FREE_LIST : | : 

F4 1 00062 BGEQU ; | : 

54 65 DO 00064 7$ MOVL  GQL_FREE_LIST, GOL : 1394) : 

65 64 D0 00067 MOVL (GOL), GOL_FREE_LIST : 1395 ; 

64 66 D0 0006A MOVL  (PREVS, (GOL) : 1396 ; 

66 54 00 00060 MOVL  GQL, (PREV) ; 1397 : 

04 AG 10 AE dO 00070 MOVL  RESNAM, 4(GQL) : 1398 ; 

08 AG 14 AE BO 00075 MOVW RESNAM+4, 8(GQL) : 1399 . 

OA Ab 01 BO OO07A MOVW #1, 10(GQL) : 1400 ; 

0B AE 06 DO 0007E MOVL #6, DESC : 1405 ; 

OC AE 10 AE 9E 00082 MOVAB RESNAM, DESC+4 : 1406 ; 

7E 7¢ 00087 CLRQ_ = : 1415 : 

0000v CF 9F 00089 PUSHAB GETQUI_BLOCKING_AST : : 

54 DD 0008D PUSHL GOL : : 

7E D4 OOO8F CLRL. = (SP) : ; 

A5 DD 00091 PUSHL  QUEUE_LOCK_LKSB+4 : | : 

20 AE SF 00094 PUSHAB : ; 

7E 0400 BF 3¢ 00097 MOVZ2WL #1024, -(SP) ; | ; 

20 AE 9F 0009C PUSHAB LKSB ; | : 

05 DD 0009F PUSHL 3 . 

01 DD OO0A1 PUSHL #1 : | ; 

000000006 00 08 FB OO0AS CALLS #11, SYSSENQW ; | : 
06 5 é OOOAA BLBC TATUS : 1416, ; 

50 gE 3 SO0AD MOVZ2WL LKSB, STATUS ; | ; 

11 9 £8 00080 BLBS STATUS, 9$ : 1417) ; 

0 DD 00083 8$: PUSHL STATUS : 1419 ; 

E D4 00085 CLRL = : | ; 

00048412 8F DD 0008 PUSHL #295954 ; | ; 

000000006 00 03 FB 000BD CALLS #3, LIBSSIGNAL : ; 
OC AG 04 AE D 00C4 9S: MOVL LkSB44, 12(GQL) : 1424 ; 

4 000C9 RET : 1425 ; 
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; Routine Size: 202 bytes, Routine Base: CODE + 0000 
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; 69 1? $ ! ROUTINE GETQUI_UNLOCK(REC_N,REC): NOVALUE= 

oe Bi 

: 39 1430 1 | FUNCTIONAL DESCRIPTION: 

; Be 1? 1 } This routine unlocks a specified record against modification. 

: 39 14 : 1 | INPUT PARAMETERS: 

; 14 ,} REC_N - Record number of record. 

g aS 1° 5 } REC - Address of record. 

: 4 1239 j i IMPLICIT INPUTS: 

: O03 1638 1 | NONE | 
: 40 1440 1 | OUTPUT PARAMETERS: 

a B36: Cl ate 
; 406 1208 1 | IMPLICIT OUTPUTS: | 
i a 
: 409 1646 1} ROUTINE VALUE: | 
ne Sa 
3 ' 
4 tig 1449 1 ! SIDE EFFECTS: 
: 41 1450 1! NONE 

: 414 1451 1 

3 6615 1036 1 !-- 

; 616 145 1 

ah TEE pees 
; 419 1456 PREV, ' Pointer to previous forward Link 
: 420 1457 GQL: REF BBLOCK, ' Pointer to SGETQUI Lock block 
: 421 1458 RESNAM: BBLOCK(6], ' Resource name 
3; 6 g 1459 STATUS; ' Status return 

ig 

: ? H 1ee8 H Ensure that the record number constitutes a valid lock. 

; 4g? 1464 IF -REC_N LEQU SQHSK_RECNO | 
> 429 1466 RETURN; 

¢ os 1268 
; $3 1499 : Construct the resource name from the record number and the byte offset. 
: 434 1471 RESNAMCO.0, 32. ,0] = .REC_N 

; 435 176 RESNAM[4,0,16,0] = "RECZ0. 9>; 
=) 

; t39 sor2 Search the active S$GETQUI lock block List for the specified resource. 

: 4640 1499 PREV = GOL ACTIVE LIST; 

3 461 1678 WHILE ..PREV NEQ 0 DO 

ar; 1280 Oe | PREV 

+ bbe 1481 CASE CHSCOMP pir RE ( 

: 445 1482 ZALLOCATION(RESNAM), GOLCGQL_RECNO]), 


H 7 
SGETQUI service 19-3 ep-1984 4 AX-11 Bliss-32 V4.0-74 Page 17. 
ak eh rik SC a rp hd PL to OF a) 
; 4ug 1483 ZALLOCATION(RESNAM), RESNAM) 
; 66 1484 FROM =1 TO 1 OF 
; 66 1485 SET 
> bb 14 : 
: 450 14 
: ¢ : 2 § “135 1 TLOOP 
: 4 5 1490 
: 454 1491 
: 455 1498 C03: 
: 6 6 1493 4 EGIN 
> 65 1494 4 ah GOL_REFCOUNT) = GaL CGAL LREFCOUNT) = 1; 
: 458 1495 4 IF .GQLEGQL_REFCOUNT) EQL 
: 459 1496 4 THEN 
: 660 149 BEGIN 
: 661 1498 STATUS = $DEQ(LKID=.GOLCGaL _LKID); 
: 66 1499 IF NOT .STATUS 
: 46 1500 EN 
; 464 1301 SIGNAL (JBC$_COMREMJBC OR STSS$K_ERROR, 0, .STATUS); 
: 466 1808 .PREV = .GOLCGQL_LINK); | 
> 467 1504 CHSCOPY(4, GOL =F REE LIST, 0, GQL_K_LENGTH, .GQL); 
> 468 1505 GOL_FREE_LIST = .GQC; 
: 469 1506 4 END? 
: 4670 1507 4 RETURN; 
> 471 1508 END; 
; 67 1509 
; 47 1510 
: 47% 1511 (+1): 
: 675 1318 PREV = GOLCGQL_LINK]; | 
: 676 151 
: 677 1514 | 
: 478 1515 TES; 
: 679 1516 2 END; | 
3; 480 1517 1 END; | 
LEXTRN SYSSDEQ | 
O3FC 00000 GETQUI_UNLOCK: | 
.WORD Save R2,R3,R4, ARS R6,R7,RB,RO 5 1426 | 
59 00000000' a 9 9002 MOV GOL_FREE_LIST. R9 ; 
SE 8 C 900 SUBL2 #8, SP : 
01 04 AC D ¢ EMPL’ RECN, #1 3 1466 | 
5E 1B 00010 BLEGU ; 
GE 04 AC 00 00012 OVL R C_N, RESNAM : 1671) 
08 Ac 0 99 EF 00016 EXTZV “#5, REC, RO > 1472 | 
04 AE 80 001C MOVW RO. RESNAM+ ; 
5 04 Ad 020 MOVAB GQi_ACTIVE_LIST, PREV : 1477 
67 D 0 4 1$: TSTL (PREV) > 1478 | 
48 1 6 BEQL ; 
56 ‘ 028 MOVL (PRE > 1480 | 
bE 04 Ab § CMPC3 #6, att heh RESNAM > 1482 | 
C it Brseu as ; | 
OA A6 B7 80 DECW  10(GQL) > 1494. 


a — - - - = rc 


iegc3¢ be coe 
RCJGETQUI.832; 
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000000006 98 
000000006 00 


00 
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113 bytes, Routine Base: CODE + OOCA 


; Routine Size: 


? 
_— CREM Q08:34HMGLI MMe 


e 
e 
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e 
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$ : ¢ ! 8 ! ROUTINE GETQUI_SYNCHRONIZE(REC_N,REC): NOVALUE= 

: & 1 1! 

; 485 1521 1! 

3; 4 1 4 1 ! FUNCTIONAL DESCRIPTION: 

:; 6 1 1! This routine synchronizes modification to a specified record with other 
3 ret : : : job controllers in a cluster. 

* 690 1 $ 1 ! INPUT PARAMETERS: 

; 491 1 7} REC_N - Record number of record. 

3 re ! 8 : } REC - Address of record. 

; 494 1530 1°! IMPLICIT INPUTS: 

; 495 1531 1! NONE 

8 $38 12 ¢ . | 

; 49 1 1 ! OUTPUT PARAMETERS: 

; 498 1 » 34 NONE 

; 499 1555 1! 

; $00 1 $ 1 ! IMPLICIT OUTPUTS: 

; $01 1 1! NONE 

3 6 1538 1! 

; 0 1539 1 ! ROUTINE VALUE: 

; 04 1540 1! NONE 

; 505 1541 1! 

; 506 1266 1 ! SIDE EFFECTS: 

; $07 154 1! NONE 

; 508 1544 1! 

; 509 1545 1 !e- 

: 510 1368 4 

: 11 154 BEGIN 

3 \ 1548 LOCAL . 

3 3 1549 PREV, ! Pointer to previous forward Link 
3; 516 1550 GQL: REF BBLOCK, ' Pointer to $SGETQUI Lock block 
s 315 1551 RESNAM BBLOCK $}. ' Resource name 

s 316 1326 DESC: VECTOR(2), ' Descriptor for resource name 
; 517 155 LKSB: BBLOCK(8), ' Lock status block 

:; 518 1554 STATUS; ' Status return 

: 4 1555 

3 $f 1556 

: H 1 1332 : Ensure that the record number constitutes a valid lock. 

3 338 1559 IF .REC_N LEQU SQHS$K_RECNO 

; 526 1560 T 

3 2 5 1561 RETURN; 

; 6 1206 

s Ser 156 

? ; 1288 Construct the resource name from the record number and the byte offset. 
3 265 1308 RESNAM(CO,0,32,0) = .REC_N; 

: 1 156 RESNAM[4,0,16,0] = .REC20,9>; 

2) cee: 

3 335 1309 : Search the active $GETQU] lock block List for the specified resource. 
3 3 1376 PREV = GOL_ACTIVE_LIST; 

: 537 157 WHILE ..PREV NEQ 0 DO 

; 538 1574 BEGIN 


} 
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39 75 QL = ..PREV: | 

40 26 CASE _CHSCOMPARE ( 

41 7 ZALLOCATION(RESNAM), GOLCGQL_RECNO], 

4 4 ZALLOCATION(RESNAM), RESNAM) 

4 7 FROM -1 TO 1 OF | 

44 0 SET 

rh 1 
| 

4 g -1): 

48 4 EXITLOOP; 

49 5 

34 $ 

1 (0): 

26 3 BEGIN 

54 90 ' Convert the existing lock to PW mode in order to deliver blocking 

56 4 } ASTs to each remote job controller that holds a PR lock. 

§ 38 LKSBC4,0,32,0) = .GQLCGQL_LKID); 

58 P 94 STATUS = SENQW( 

59 Pp 95 EFN=JBCSK_SYNC_EFN 

60 P % LKMODE =LCRSK_PQMODE, 

61 P 159 LKSB=LKSB 

6¢ 98 FLAGS=LCK$M_CONVERT); 

6 99 IF .STATUS THEN STATUS = .LKSBL0,0,16,0); 

re 00 Son” »STATUS 


N 
SIGNAL (JBCS$_COMREMJBC OR STSSK_ERROR, 0, .STATUS); 


Convert the lock back to PR mode. 


| 
STATUS = SENQW( 
EFN=JBC$K_SYNC_EFN 
LKMODE=LCRSK_PRMODE , 
| 
| 
| 
| 
| 


vuvv 
ee ee a a a a dd 


DRAE_BPXPEXRPAE XA AA ADA AAA DA DPA DAD DD DPD PDD DDD. Daa PVPS SSSI 


LKSB=LKSB 

FLAGS=LCK$M_CONVERT) 
F .STATUS THEN STATUS = 
F_NOT .STATUS 


EN 
SIGNAL (JBC$_COMREMJBC OR STSSK_ERROR, 0, .STATUS); 


* LKSBLO,0,16,02; 


OO NNN NNN NNN SIOO Oo 
one SSaVSeSRAN[SSSIF- 
aD he 


SPAN LSSELSALAL= 


RETURN; 
END; 
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C+1): 
PREV = GOLCGQL_LINK); 


TES; 
END; 
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! Take a lock in Pw mode in order to deliver blocking ASTs to each remote job | 
! controller that holds a PR lock. 
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00048412 8F DD 00069 PUSHL 4295954 ; | 
68 3 FB ¢f CALLS #3, LIBSSIGNAL : | 
— 7¢ 2 4$: CLRO 0. =< §P) + 1611) 
7E 7C 00074 CLRQ (SP) : 
43 iC 16 CLROQ (SP : | 
7E 02 7D 007 MOV #2, =(SP) : | 
20 Ar 9F 0007B PUSHAB LKS ; 
DD 0007 PUSHL 3 : | 

1 0D 008 PUSHL #1 : 

$4 8 FB 0008 CALLS #11, SYSSENQW : 

a DO 0008 MOVL STATUS : 
06 4 : 99 8 BLBC ATus, 5$ + 1612 

- gE f B MOVZWL LKSB, STATUS : 
5E 6 £8 OO08E BLBS TATUS, 10$ + 1613 
56 DD 00091 5$: PUSHL STATUS : 1615 

7E D4 00093 CLRL. = ; 

00048412 8F DD 90095 PUSHL #295954 : 

68 03 FB 00098 CALLS #3, LIBSSIGNAL : 
04 0009E RET + 1588 
57 55 DO OO09F 6$: MOVL  GQL, PREV + 1623 
BC 11 O00A2 BRB : 1573 
08 AE 06 00 OO0A4 7$: MOVL #6, DESC + 1633 
OC AE 10 AE 9E OO0A8 MOVAB RESNAM, DESC+4 + 1634 
7E 7C OOOAD CLRQ =(SP) + 1640 

7E 7C OOOAF CLRQ  =(SP) : 

7E D4 00081 CLRL = = (SP) : 

00000000" EF DD 000B3 PUSHL QUEUE_LOCK_LKSB+4 ; 

20 AE 9F 00089 PUSHAB DESC : 

7E D4 O00BC CLRL = = (SP) : 

20 AE 9F OOOBE PUSHAB LKSB ; 

04 oD 000C1 PUSHL #4 : 

01 DD 000C3 PUSHL #1 : 

64 OB FB 000C5 CALLS #11, SYSSENQW : 

56 50 pO 000¢8 MOVL 0, STATUS : 
06 56 E9 000¢B BLBC 8$ > 1641 

56 6E 3¢ OOOCE MOVZ2WL LKSB, STATUS ; 
0D 56 E8 00001 BLBS STATUS, 9$ + 1642 
56 DD 00004 8$ PUSHL + 1644 

7E D4 00006 LRL. = ; 

00048412 8F DD 90008 PUSHL #295954 : 

65 03 FB OOODE CALLS #3, LIBSSIGNAL : 
7E 7C OO0E1 9$: CLRQ = = §P) + 1649 

7E D4 OE; CLRL = = (SP) : 

10 AE DD OOOE PUSHL LKSB+4 : 

000000006 00 04 FB 000E8 CALLS #4, SYS$DEQ : 
04 OOOEF 10$: RET > 1650 
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N 7 
service 16-Sep-1984 00:05:34 AX-11 Bliss-32 V 
a tiae hs ris tee Pe ht hd pt Py 
ROUTINE GETQUI_RELEASE(REC_N,REC): NOVALUE= 
e+ 


FUNCTIONAL DESCRIPTION: 
This routine releases the lock on a specified record momentarily as part 
of the synchronization with other job controllers in a cluster. 


INPUT PARAMETERS: 
REC_N - Record number of record. 
REC - Address of record. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 

LOCAL ; 
PREV, ! Pointer to previous forward Link 
GQL REF BBLOCK, ' Pointer to $SGETQUI Lock block 
RESNAM BBLOCK $i. ' Resource name 
DESC: VECTORC2), ' Descriptor for resource name 
LKSB: BBLOCK(8), ' Lock status block 
STATUS; ' Status return 


Ensure that the record number constitutes a valid lock. 
if .REC_N LEQU SQHSK_RECNO 
RETURN; 


: Construct the resource name from the record number and the byte offset. 
RESNAMLO. 0, 52.0) = .REC_N; 

RESNAM(4,0,16,0) = .REC20,9>; 

: Search the active S$SGETQUI] lock block List for the specified resource. 


PREV = GOL_ACTIVE_LIST; 
WHILE ..PREV NEQ 0 DO 
BEGIN 
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; £05: . ; | 
pai ooee REHM BNE GALORE RS Me 


; 673 1708 GOL = ..PREV; 
: 674 1709 CASE CHSCOMPARE ( 
; 675 1710 ZALLOCATION(RESNAM), GOLCGQL_RECNOI, 
3 «67 1711 ZALLOCATION(RESNAM), RESNAM) 
3; 67 ar FROM -1 TO 1 OF 

3; 67 171 SET | 
s; oF 17146 
; 680 1715 

; 681 71g -1): 

; 68 171 EXITLOOP; 

3; 68 1718 

: 684 1719 

: 685 1720 (0): 

3 686 1721 & SEGIN 

3 687 17 ; 4 | 
; 688 1725 4 : Dequeue the existing lock in order to allow the job 
; ret iy ¢ ? controller doing the modification to acquire the PW lock. | 
; 691 1726 4 STATUS = $DEQ(LKID=.GQLCGQL_LKID)); 

; 69 1727 & IF NOT .STATUS 
3; 69 1728 4 EN 
3 69% 1209 4 SIGNAL (JBC$_COMREMJBC OR STS$K_ERROR, 0, .STATUS); 

; 695 1730 4 | 
; 696 1731 4 | 
; 697 17 4 4 ! Reacquire a PR lock on the resource. 
; 698 1733 4 i 

; 699 1734 4 bescto] = XZALLOCATION(RESNAM); 

: 700 1735 4 DESCL1] = RESNAM: 
: 701 P1736 4 STATUS = SENQW( 

: 70 P1737 4&4 EFN=JBC$K_SYNC_EFN 

: 70 P1738 4 LKMODE=LCRSK_PRMODE, | 
: 704 P1739 4 LKSB=LKSB 

; 705 P1740 4 RESNAM=DESC, 

: 706 P1741 4 FLAGS=LCK$M_NODLCKBLK 

: 707 P 1748 4 PARID=. (QUEDE_LOCK_LKSB8[2]), 

; 708 P1743 4 ASTPRM=.GQL, 

: 709 1744 4 BLKAST=GETQUI_BLOCKING_AST); 

: 710 1745 4 IF .STATUS THEN STATUS = .CKSBLO,0,16,0): 

: 711 1746 4 IF NOT .STATUS 

: ig 1747 & EN 

: 71 1748 4 SIGNAL (JBC$_COMREMJBC OR STS$K_ERROR. 0, .STATUS); 

> 714 1749 4 

: 715 1750 4 

: ay 1751 4 ' Save the new lock ID. 

: 71 173¢ 4 i 

; 718 1753 4 GQLCGQL_LKID] = .LKSBL4,0,32,0); 

: 719 1754 4 EXITLOOP; 

: 720 1755 END; 

: 721 1756 

: 7 é 1757 

et: 1758 f+1): 

: 726 1759 PREV = GOLCGQL_LINK); 

: 725 1760 

: £26 1761 

AE 176¢ TES; 

; 728 176 END; 

: 729 1764 END; 
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OOFC 00000 GETQUI_RELEASE: 
WORD 


4 000000006 00 9€ 0000 nivas  tintstemac eng neee 
ef 8 5 ite UBLe yas te 
01 04 AC 01 0000 CPL RECN, #1 
01 1A 0001 BGTRU 1 
04 001 RET 
10 AE 04 AC DO 00018 1$: MOVL RECN, Ny RESNAM 
50 08 ac 09 Q EF 0001 EXTZV REC, RO 
14 AE BO 0001 MOVW  =RO,, en med 
57 00000000" EF 9 000 MOVAB GOL _ACTIVE _LIST, PREV 
67 D 00 2$ TSTL (PREV) 
01 12 00028 BNEG =: 38 
04 0002D RET 
55 67 DO O002E 3$ MOV. (PREV), GOL 
10 AE 06 AS 06 29 00031 CMPC3 #6, 4(GQL), RESNAM 
71 1A 00037 BGTRU 7$ 
75 1F 00039 BLSSU  8$ 
7— 7 00038 CLRQ. = =(SP) 
7E D4 00030 CLRL = (SP) 
0c AS DD 0003F PUSHL  12(GQL) 
000000006 00 04 FB 00042 CALLS #4, SYSSDEQ 
56 50 DO 00049 MOVL RO. STATU 
Op 56 EB 0004C BLBS STATUS, 4$ 
56 DD 0004F PUSHL ATUS 
7E D4 00051 CLRL P) 
00048412 8F DD 00055 PUSHL #295954 
64 03 FB 00059 CALLS #3, LIBSSIGNAL 
08 AE 06 DO 0005C 4$ MOVL ’ D 
OC AE 10 AE 9€ 90060 MOV RESNAM, DESC+4 
7E 7C 0006 CLRQ. 
O000v CF 9F 00067 PUSHAB GETQUI_BLOCKING_AST 
35 DD 00068 PUSHL GOL 
E D4 0006D CLRL. = (SP) 
sega: EF DD O006F PUSHL  QUEUE_LOCK_LKSB+4 
AE 9 00075 PUSHAB DES 
7E 0400 8F %3¢ 00078 MOVZWL #1024, -(SP) 
20 ae 9F 0007D PUSHAB LKSB 
DD 00 9 PUSHL #3 
1 0D PUSHL #1 
000000006 90 g FB 0084 CALLS #11, SYSSENQW 
6 D0 000 MOVL RO, STATUS 
06 56 9 O08E LBC STATUS rf 
f E ¢ 009 MOVZ2WL LKSB, STATUS 
OD 6 E8 00094 BLBS STATUS, 
6 DD 00097 58: PUSHL STATUS 
E D4 00099 CLRL = a 
00048412 8F DD 0009B PUSHL 43959 
64 03 FB 0 Al CALLS @ Ui8ss GNAL 
Oc AS 04 AE p AG 6$: MOVL  LKkSB44, 12(GQL) 
4 000A9 RET 
57 55 DO OOOAA 7$: MOVL  GQL, PREV 
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; Routine Size: 177 bytes, Routine Base: CODE + 0228 
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; i 1 1763 } ROUTINE UPDATE _GETQUI_LOCKS(GQC_1,GQC_2): NOVALUE= 

3; £ ‘ 1767 1 S44 

; £ 1708 1! 

; 735 178 1 ! FUNCTIONAL DESCRIPTION: 

ce 1770 1! This routine updates locks in the SGETQUI Lock data base at completion 
3 f ‘ 4a! ! : of a SGETQUI operation. 

; 739 1578 1 ! INPUT PARAMETERS: 

; 740 1774 1! GQC_1 - Pointer to GQC image before operation. 
: fv) \f0? : GOQC_2 - Pointer to GQC image after operation, or 0 if none. 
; 74 1739 1 ! IMPLICIT INPUTS: 

: 744 1o78 1! NONE 

: 745 1779 1! 

> 746 1780 1 ! OUTPUT PARAMETERS: 

: 747 1781 1! NONE 

: 748 ree 1! 

3; 749 1785 1°! IMPLICIT OUTPUTS: 

; 750 1784 1! NONE 

3 fl 1785 1! 

; Pee 1786 1 ! ROUTINE VALUE: 

; 7 1787 1! NONE 

; 7546 1788 1! 

3 95 1789 1°! SIDE EFFECTS: 

: 756 1790 1: NONE 

3 for 1791 1! 

; 758 ire 1 !-- 

; 759 1793 (1 

; 760 1794 2 BEGIN 

; 761 1795 § MAP 

; 76 1796 GOQC_1: REF BBLOCK, ! Pointer to GQC 

3; 1797 GQC_2: REF BBLOCK; ! Pointer to GQC 

; 764 1798 

: 765 1799 

: 766 1800 IF .GQC_2 EQL 0 

; 767 1801 THEN _ 

: 768 1906 EZGIN 

3; 769 180 

3 aa H+ 941 No after image. Unlock all locks held on account of the before image. 
o- ne 1806 GETQUI_UNLOCK(.GQC_1(GQC_SCX_NJ, .GQC_1(GQC_SCE_N]J); 

3; 7@7 1807 GETQUI_UNLOCK(.GQC_1(GQC_SFX_NJ, .GQC_1(GQC_SFE_NJ); 

: 774 1808 GETQUI_UNLOCK(.GQC_1(GQC_SQxX_NJ, .GQC_1(GQC_SQE_NJ); 

> 775 1809 GETQUI~UNLOCK(.GQC~1CGQC~SJH-NJ. 0); 

3s 77% 1810 N 

3 777 1811 ELSE 

3; 778 iss BEGIN 

: 779 181 

; 780 1814 ! If the characteristic context has changed, unlock the before image record 
: ey 13l? and lock the after image record. 

; 78 1819 IF .GQC_1 Goc_Scx_N} NEQ -Goc _cfGac scx _u) 

3: «784 1818 OR .GQC_1(GQC"SCE_NJ NEQ .GQC_2(GQC_SCE_N 

: 785 4344 THEN 

; 786 1 9 4 BEGIN 

: 7 1821 4 GETQUI_UNLOCK(.GQC_1(GQC_SCX_NJ, .GQC_1(GQC_SCE_N]); 


001C 00000 UPDATE =SE Toul LOCKS: 
WORD Save R2,R3,R4 ; 1765 


TQ S$GETQUI service $Sep-1984 00:05:34 AX-11 B =32 V4.0-74 Page 28 G 

yoa-001 16-Sep-1964 9939334 NOBCTLeS sReiG GETOUI 128333 . Be v6 
; 788 } 3 GETQUI LOCK (.GQC_2(GQC_SCX_NJ, .GQC_2C(GQC_SCE_NJ); | : 
; 790 182% : | ; 
: 1 § ! If the form context has shanged, unlock the before image record and lock : 
: : the after image record. : 
; 1899 iF .GQC_16GQC_SEX.N} NEQ .GOC_20GQC_sx_NJ | ; 
: : , OR cat. 1CGQC>SFE-NJ] NEQ G0C~ GQC_SFE_N : 
3 183¢ 4 BEGIN | ; 
2 i 4 GET Ul UNLOCK (.GOC_ 1 GOC_ SFX. Ni. -GQC ~}}G0C SFE NI): , 
: i; : & Sua saute (.GQC"20GQC"SFX-NJ, .GQC~2LGQC"SFE-NJ); : 
: 188 : aaa| 
3 1838 ! If the queue context has changed, unlock the before image record and lock | ‘ 
; 13% the after image record. | : 
3 1841 IF .GQC_1(GQC_SQX_N] NEQ .GQC_2CGQC_sOx_N] | : 
3 1366 OR .GQC~1(GQC"SQE"NJ NEQ .GQC~2[GQC"SQE-NJ | e 
; 809 184 THEN : 
; 10 1844 4 BEGIN ; 
; 811 1845 4 GETQUI ne). GQC_1CGQC_SQx_NJ, .GQC ~} 60 QC_SQE_N]); ‘ 
; aig 1846 4 GETQUI“LOCK (.GQC~2CGQC~Sax"N), -GaC “2CGQC-SQE-NJ); ° 
; 81 1847 END; | ; 
; 814 1848 : 
: 815 1849 | ; 
> 816 1850 ! If the job context has changed, unlock the before image record and lock . 
; aif 132) the after image record. : 
> 819 1888 IF .GQC_1(GQC_SJH_NJ NEQ .GQC_2(GQC_SJH_NJ : 
; 820 1854 THEN 3 
; 821 1855 4 BEGIN : 
; 822 1856 4 GETQUI UE ORES GQC_1(GQC_SJH_NJ, 0); 3 
; 823 1857 4 GET@UI-LOCK (.GQC~2[GQC"SJH_NJ, 0); : 
: 824 1858 3 3 : 
; 825 1859 2 END; : 
; 826 1860 1 END; : 

54 FDES CF 9E 0000 MOVAB GETQUI_UNLOCK, R4 : ; 

52 04 ag 43 000 MOVaQ GQC_1,°R2 : 1806 ; 

53 05 00008 TSTL R3 ; 1800 3 

1E 12 0000D BNEQ 1$ : : 

7E OC A2 7D QOOOF MOVO 12(R2) : 1806 : 

64 02 FB 00013 CALLS #2, étfoul® UNLOCK ; 3 

7€ 14 A2 7D 00016 MOVQ 20(R2) (SP) : 1807 3 

64 02 FB OOOIA CALLS @# Gefaul UNLOCK ; ; 

és "© 05 FB door CALLS (ne faut sur UNLOCK Ses 

OF be 000s CLRL. = (§P) ; re! ; 


; Routine Size: 161 bytes, Routine Base: CODE + 02DC 
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2C «=6A2 «OOD PUSHL (R2) : ; 
64 05 FB 6 § CALLS rh GETQUI_UNLOCK : | : 
04 C RET $ 1200 ‘ 
oc AB 0c a2 D| 0 p 1$: CHL y2cr2), 12(R3) + 181 | : 
10 A3 10 A of 0 4 CPL ipo. 16(R3) : 1818 | : 
7E 0c A2 7D 0 B 28: MOVG 12(R2), =(SP) > 1821) : 
y 02 FB 5 CALLS #e, gefaul UNLOCK : | : 
E 0c Ad 7D 00042 mova 1 in’) (SP) > 1822 | ; 
FF36 0 C4 02 FB 00046 CALLS #2, vse tou Lock : : 
16 AB 14 AG DY 00048 38: EMPL’ DOCRS). 20TR : 1829 | ; 
O7 1 5 BNEQ 4% 3 ‘ 
18 AB 18 Ag D1 0005 CMPL os 24(R3) + 1830 : 
10 13 0005 BEQL $ : : 
7E 14 A2 7D 00059 4$ MOVO = 20(R2) + 1833 ; 
64 02 FB 9005p CALLS #2, efoul UNLOCK ; : 
7E 146 Ad 7D 9060 MOVO 20(R3), (SP) + 1834 ; 
FF36 CG 02 FB 00064 CALLS He. AGE GETau! LOCK : : 
A3 1¢ A2 D1 00069 5S: CMPL 28(R2), 28TR3) + 1841) ; 
0? 12 0006 BNEG -6$ : | : 
20 Ad 20 A2 D1 000 g CMPL  32(R2), 32(R3) + 1842 ; 
10 13 0007 BEQL 6 7$ : : 
7E 1¢ A2 7D 00077 68: MOVO 28(R2) + 1845 ; 
64 06 FB 0007B CALLS #2, Gefoul UNLOCK ; : 
7E 1¢ A3 7D OOO7E OVG 28(R3) p + 1846 
FF36 0 C4 02 FB 00082 CALLS #2, GETQUI_LOCK ; : 
2c AS 2¢ A2 D1 00087 7S: CMPL 44(R2), 44TR3) : 1853 : 
12 13 0008 BEQL 8S ; : 
7E D4 OO008E CLRL {SP ) : : 
2¢ A2 DD 00090 PUSHL  44(R2) ; : 
64 02 FB 00093 CALLS #2, GETQUI_UNLOCK : ; 
7E D4 00096 CLRL 0s = (§P) : 1857 ; 
2c =A3 DD 00098 PUSHL  44(R3) : ; 
FF36 C4 02 FB 0009B CALLS #2, GETQUI_LOCK : F 
04 OOOA0 8$: RET + 1860 : 


H 8 
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3 $ : 6 } GLOBAL ROUTINE UPDATE_GETQUI_DATA(REC_N,REC,BLKAST): NOVALUE= | ; 
; 0 1865 1 !+4 | ; 
3 1 1864 1! ‘ 
5 ¢ 1865 1 ! FUNCTIONAL DESCRIPTION: ‘ 
: 1 08 1! This routine updates references in the SGETQUI Lock data base to the ’ 
; ¢ : 6 : specified record. | ‘ 
; 1 § 1 ! INPUT PARAMETERS: ‘ 
: 1870 1! REC_N - Record number of record, : 
; 8 1871 1! - Pointer to record, possibly se aed byte offset. ; 
3 9 1872 1! BLKAST - Present if this routine is being called in response ‘ 
; 0 1875 1! to a blocking AST. ; 
; 841 1874 1! : 
; ¢ 1875 1! IMPLICIT INPUTS: ; 
: 4 1 rg 1! NONE 2 
; 844 1877 1! | 3 
4 45 1878 1 ! OUTPUT PARAMETERS: ; 
; 846 1879 1! NONE : 
3 847 1880 1! 3 
4 st8 1881 1 ! IMPLICIT OUTPUTS: 3 
3 9 1856 1! NONE 3 
; 850 1885 1! § 
3 $2) 1884 1 ! ROUTINE VALUE: : 
3 26 1885 1! NONE 3 
3 8 1886 1! 3 
: 854 1887 1 ! SIDE EFFECTS: 3 
; 855 1888 1! NONE 3 
; 856 1889 1! 3 
; «857 1890 1 !<- 3 
; 858 1891 1 3 
: 859 1892 2 BEGIN | : 
; 860 189 MAP F 
: 861 1894 REC: REF BBLOCK; ! Pointer to record 3 
; B66 1895 LOCAL $ 
; 86 1896 : REF BBLOCK, ' Pointer to GQC 3 
: 864 1897 BOFF ; ! Byte offset from record pointer 3 
; 865 1898 BUILTIN 3 
; 866 1899 ACTUALCOUNT; 3 
3; 867 1900 3 
: 868 1901 ; : 
; 869 1906 ! Deliver the remote blocking ASTs. | : 
: 870 190 ! 3 
: 871 1904 BOFF = .REC<0,9>; 3 
: 13p2 IF ACTUALCOUNT() LSSU 3 THEN GETQUI_SYNCHRONIZE(.REC_N, .BOFF); ; 
3 874 1907 3 
; 875 1908 ! Loop over all S$GETQUI context records. | : 
: 87 1909 ! 3 
: 87 1910 2 GOQC = .OPEN GETQUI_LIST; ‘ 
: 878 1911 WHILE .GQC REO 0 DO : 
; 879 +4 BEGIN 3 
; 880 191 ; 
; 3 ay : If the characteristic context is being deleted, advance that context. | : 
; Hy 1916 IF .GQCCGQC_SCX_NJ EQL .REC_N AND .GQCC(GQC_SCE_N] EQL .BOFF : 
; «6884 191 THEN 3 


° JOBCTL.SRCJGETQUI .B32; 
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1861 | 


; 885 1918 BEGIN : 
; 1919 4 GOC(GOC_SCX_NO_ADV] = TRUE j ; 
; 1920 § JF |ACTUALCOONTT) GEQU 3 THEN GETQUI_RELEASE(.REC_N, .BOFF); ; 
. oe : al 
; B) i ¢ If the form context is being deleted, advance that context. 3 
; 38 1926 if .GQCCGOC_SFX_NJ EQL .REC_N AND .GQCCGQC_SFE_N] EQL .BOFF : 
: B95 1958 ag ; 
i 896 1999 GOCLGQC SFX NO_ADV) = TRUE | 
: 89 1930 4 IF ACTURLCOONTT) GEQU 3 THEN GETQUI_RELEASE(.REC_N, .BOFF): : 
; 898 1931 END; | ; 
: 500 1933 | ; 
: 4 1% : If the queue context is being deleted, advance that context. ‘ 
3 903 1386 iF ,,oacteac_ SQX_NJ EQL .REC_N AND .GQC{GQC_SQE_N] EQL .BOFF | : 
: 905 1938 BEGIN | : 
i 906 1939 4 GETQUI JUNLOCK( .GOCCGQC, SJH -N], 0); | : 
; 90 1940 4 GOC cat. SOX_N | : 
; 908 1941 4 Gactca sett eh C_k eon | : 
; 909 194¢ 4 GOCEGOC™SJHIN] = =o: | : 
; 910 1943 4 GactGac-sa | 3 
; 911 1944 4 TF ACTURLCOONT () géou 3 THEN GETQUI_RELEASE(.REC_N, .BOFF); ; 
i gig 1945 END; | : 
: $14 1969 : 
; ay Hb 3 : If the job context is being deleted, advance that context. | ‘ 
: 917 1950 iF .GQCCGQC_SJH_N] EQL .REC_N : 
: 319 1992 4 Meegin | 
> 920 1988 4 GETOUI UNLOCK. GOCEGOC SIH NI, 0): | : 
; 921 1954 4 GOCCGQC_SJH_N] = -RECCSYMSC_ Link : 
i 9e¢ 1955 4 coctGac SdH “NO et = TRUE : 
; 92 1936 4 GETO K~ cCGac At: "Nl, 0); | ; 
3 924 1957 4 gaccGat. SOR Ny's | : 
: 985 1958 END; | : 
eB 7 
; 928 1961 GOC = .GOCLGQC_LINK); : 
> 929 196¢ END; : 
; 9 1963 1 END; : 
UPDATE_GETQUI_DATA, Save R2,R3,R4,R5 : F 

FEAR CF MOVAB GE TOUL - RELEA SEAR poy ; 
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CALLS Wo-G “GETOUI SYNCHRONIZE 
OPEN GETQUT_ LIST, GOC 
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12(GQC), R3 
CPL 16(GQC), BOFF 
BISB2 #16 8( GC) 
MPB. sé AS, 
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#°M<R3,R4> 
CALLS #2, GETQUI_RELEASE 
4$: CMPL 0(GaCc), R3 


CMPL 4(GQC), BOFF 
B1SB2 fe "a 


53 14 
ute 18 
08 A 


PUSHR #*M<R3 
CALLS W2 8 “Ge fOui RELEASE 
5$: CMPL R3 


CMPL $F ccaco, BOF F 


CLRL =(sP) 
PUSHL a 
CALLS 2 oe Tau UNLOCK 


MOVQ + “40(G0C) 
CLRL 48(GQC) 
CMPB sor) . #3 


b 
PUSHR #*M<R 
CALLS #2. “GE (ul RELEASE 
6$: CMPL QC), R 
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k 8 
service 16-Sep-1984 00:05:34 AX-11 Bliss-32 V4.0-74 
1a-sep-19 4 99:93:32 JOBCTL.SRC GEFONT 93003 


$GETQUI 


en 
se 


UPDATE_GETQUI_DATA( .GQLCGQL_RECNOJ, -GQLCGQL_BOFFJ, 0); 


; ¥ 1964 1 ROUTINE GETQUI_BLOCKING_AST(GQL): NOVALUE= 
3 4 : 1292 ! i 
3 '+4 
; 935 1969 1! 
3; 9 1208 1 ! FUNCTIONAL DESCRIPTION: 
; t 1396 ; This routine is a blocking AST for the $GETQUI lock List. 
: 320 1993 i sete © emcicane Poi to GQ. ( d ASTPRM) 
3 : - Pointer to assed as . 
; 941 1398 1! . 
3 ate 1974 1°! IMPLICIT INPUTS: 
; 9% 1975 1! NONE 
> 9446 1378 1! 
; 945 1977 1°! OUTPUT PARAMETERS: 
3 2e8 1378 1! NONE 
; 94 1979 1! 
; 948 1980 1 =! IMPLICIT OUTPUTS: 
; 949 1981 1! NONE 
; 950 1356 1! 
; 951 1985 1 ! ROUTINE VALUE: 
3 826 1984 1! NONE 
3; WP 1985 1! 
; 956 1986 1 ! SIDE EFFECTS: 
; 955 1987 1! NONE 
; 956 1988 1! 
; 957 1989 1 !-- 
; 958 1990 1 
; 959 1991 BEGIN 
; 960 1336 MAP 
: 961 199 GQL: REF BBLOCK; ! Pointer to S$GETQUI Lock block 
; +4 1994 
; 96 1995 
; 964 1996 IF .QUEVE_FABCFABSW_IFI] NEQ 0 
; 965 199 THEN 
; 966 1998 BEGIN 
: 967 1999 DIAG_TRACEC7] = .GQLCGQL_RECNO); ! seeee diagnostic info st#** 
; 968 000 3 IF .GQLCGQL_BOFF) NEQ 0 
: 969 001 THEN 
; 970 ih 4 BEGIN 
; 971 003 4 
: 97 004 4 ! The record is a characteristic, form, or queue record. Update all 
: 97 005 4 ' references to the record, which does not require reference to the 
: 974 006 4 ' record itself. 
3 92> 007 4 ! 
; 976 008 4 
: 977 009 4 

; 978 010 3 ELSE 

; 979 011 4 BEGIN 

; 980 big 4 LOCAL 

3; «981 013 4 AST_QUEVE_RAB: BBLOCKCRABSC_BLN], ! Temporary AST level RAB 

: 98 O14 ‘ REC? REF BBLOCK; ' Pointer to queue record 

5 oa 818 ? Ensure RAB is idle and create a temporary copy of it. 

; 986 018 5 IF NOT $WAIT(RAB=QUEUE_RAB) 

; 987 019 4 

; 988 020 4 SIGNAL _F ILE_ERROR( 


— ee _ ) 


8 

TQ SGETQUI service 1$- =S$ep-1984 00:05:34 AX-11 Bliss-32 V4.0-74 Pa 4 

Gicbot 14- g007 1382 90:93:32 MBBCTL SReIGETOUL 3003 - 3 
; 989 1 4 Jacs READERR + STSSK SEVERE, ‘ 
; 990 ¢ 4 UE FAB QUEVE_RABY; ; 
: 933 ; é CHSMOVE CRAB C_BLN, QUEUE_RAB. AST_QUEUE_RAB); : 
: 99 025 4 : 
; 994 0 § 4 ! The record is a job record. Allocate a (page-aligned) buffer for ; 
; 995 . ? the record, and read the record. | ‘ 
: 399 0 § 4 REC = ALLOCAT MEMORY () | : 
: 998 0 0 4 AST_QUEUE_RABCRABSL BF) = = Gat foal. RECNO]; | ; 
; 999 1 4 IF [FLAGSCFLAGS_V aDEUE ; 
3 1900 9 é 4 THEN AST_QUEU ABERABSL ROP = RABSM_NLK OR RABSM_RRL ; 
; 1001 4 ELSE AST -QUEUE~ Ras RABSL— = 0; ; 
: 100¢ 034 4 AST_QUEUE_R CRABSC UBF] = RE c; : 
: 100 035 4 DIAG COUNTLO) = .DIAG COUNTEO : 
+ 1004 0 6 5 F NOT $GET(RAB=AST ‘oe _RAB) 3 
; 1005 0 4 N ; 
+ 1006 038 4 SIGNAL_FILE_ERRO 3 
: 1007 039 4 Jats KEXBERRY ; STS$K_SEVERE, ‘ 
: 1008 040 4 QUEUE” _FAB, AST_QUEUE~RAB) ; ; 
3; 1009 041 4 : 
: 1010 Que 4 : 
: 1011 043 4 ' Update all references to the record. , 
: 101g 044 4 i : 
: 101 045 4 UPDATE_GETQUI_DATA(.GQLCGQL_RECNOJ, .REC, 0); : 
18 ae 7 
: 1016 048 4 ! Deallocate the record. | ‘ 
: 1017 049 4 i : 
: 1018 050 4 DEALLOCATE_MEMORY(.REC); : 
: 1019 2051 3 END; ’ 
: 1020 2032 2 END; : 
> 1021 2053 1 END; ‘ 
| e 
: 
.EXTRN SYSSWAIT, SYSSGET : 
O1FC 00000 GETQUI_BLOCKING_AST: : 
WORD “Save R2,R3,R4,R5, Ro, R7,R8 : 1964 : 
58 000000006 EF 9 00002 MOVAB SIGNAL_FILE_ERROR, R8 : : 
57 00000000' EF 9€E 00009 MOVAB EUE : ; 
5E BC AE 9E 00010 MOVAB <6 (SP), §P : 3 
B2 A? B5 00014 TSTW  QUEUE_FAB+2 > 1996 | : 
01 12 00017 BNEQ $ : : 
04 90019 RET : | : 
56 AC DO OOO1A 18 MOVL  GQL, R6 : 1999 : 
FCB8 = C7 04 Ad DO OOO1E MOVL  4(R6), DIAG_TRACE+28 : | 3 
Ab ; 0024 TSTW 8 R6) : 2000 : 
F 0027 BEQL 2 ; : 
E p4 99 9 CLRL =_ = (SP) > 2008 | : 
7E 08 AB 3C 8 MOVZ2WL 8(R6), -(SP) ; | : 
046 Ad OD 99 F PUSHL 4(R6) 3 | : 
FFOF CF 03 FB 9 ; CALLS #3, UPDATE_GETQUI_DATA ; : 
04 00 RET : 2000 : 
57 DD 00038 2$: PUSHL 7 : 018 | : 
000000006 00 01 FB OO03A CALLS #1, SYSS$WAIT ; : 


m 8 
TQ SGETQUI service 16-Sep-1984 4 AX-11 Bliss-32 V4.0-74 Page 35 
Shecbo1 14-Sep-1 198 99: 93: 34 JOBCTL.SRCIGETQUI. B3oe3 ° i 
OE 39 E8 00041 BLBS RQ, 3$ : 
BD 44 PUSHL + 2020. 
BO A? 9F 0046 PUSHAB QUEUE. FAB : | 
000410B4 BF DD 0004 PUSHL ’ 20 + 2021 
3 EB O4F CALLS SIGNAL. FILE_ERRO : 
6E é 0044 BF 2 g 3$: MOVC f &, £~RAB wast OGUEUE _RAB : 2023 
000000006 EF 0 FB : CALLS é o + AUB CATE _MEMOR : 2029 
30 A 04 Ab oe 062 MOVAB ithe) AST QUEUE _RAB+48 + 2030 
OA FEC SOC E 006 BBC a3 ELAGS , 43 + 2031 
AE 00100008 F bo of MOVL #1648 84, AST_QUEUE_RAB+4 + 2032 
04 AE D4 007 4$: CLRL  AST_QUEUE_R + 2033 
24 «AE 52 D0 0 7A 5$: MOVL REC’ AST gueuE _RAB+36 + 2036 
FCFC g D6 ove INCL DIAG_COURT + 2035 
—E DD 008 PUSHL SP > 2036 
000000006 00 gi FB 084 CALLS #1, SYSS$GET : 
” aati ftitm seo : 2038 
B0 5 OF 00099 PUSHAB QUEUE_FAB : 
00041084 8F OdD 0009 PUSHL #g0ene0 3: 2039 
68 93 FB 00099 CALLS o SIGNAL _FILE_ERROR : 
E 04 0009C 6$: CLRL 3s =< §P) + 2045 
52 DD 0009E PUSHL REC F 
04 A6 DD OOOAD PUSHL  4(R6) : 
FESE CF 03 FB OOOA3 CALLS #3, UPDATE_GETQUI_DATA ; 
52 DD 0008 PUSHL REC + 2050 
000000006 EF 01 FB OOOAA CALLS #1, DEALLOCATE_MEMORY : 
04 00081 RET t 2053 
; Routine Size: 178 bytes, Routine Base: CODE + 0437 
| 
| 


n 8 
SGETQUI service 16-Sep-1984 00:05:34 AX-11 Bliss-32 V4.0-74 Pa 36 | 
z 1228671382 99:93:32 JOBCTL.SRC Geeaut 65055 9 10). 


v4 


sé 


| 
; 1023 54 1 ROUTINE WILD_SEARCH_NAME= | 
3 18 ¢ 56 : wat | 
7 10 6 ae 
; 10 B28 1 ! FUNCTIONAL DESCRIPTION: 
; 19 : 828 ! } This routine determines if the search name contains wildcards. 
; 1030 061 1 ! INPUT PARAMETERS: 
; 1031 062 1! NONE 
; 10 ; 0635 1! 
; 10 064 1 ! IMPLICIT INPUTS: 
3 44 ¢ 893 : } VALUE _SEARCH_NAME - Descriptor for search name. 
; 10 067 1 ! OUTPUT PARAMETERS: 
; 1037 068 1! NONE 
; 1038 069 1! 
; 1039 070 1 ! IMPLICIT OUTPUTS: 
: 1040 O71 1! NONE 
: 1041 Ore 1 | | 
: 104¢ 073 1 | ROUTINE VALUE: 
3 1Re7 sore ' True if the search name exists and contains a wildcard character. | 
; 1045 2076 1 ! SIDE EFFECTS: | 
: 1046 077 1} NONE | 
: 1047 sore 1! 
: 1048 079 1 !-- | 
: 1049 2080 1 
; 1050 2081 BEGIN 
; 1051 sat) IF .ITEM_PRESENTCQUI$_SEARCH_NAME J 
; 1936 208 THEN 
3 105 2084 BEGIN 
; 1054 2085 IF LOCC( 
: 1055 2086 ZREF(RC*#"), 
3 1038 Sone ; VALUE_SEARCH_NAMECSDSC_W_LENGTH], .VALUE_SEARCH_NAMECSDSC_A_POINTER]) 
; 1058 2089 3 RETURN TRUE; 
; 1059 2090 3 
3 1060 2091 3 
; 1061 3 ; LOCC( 
; 1096 09 ZREF CZCS"), 
; 106 2094 3 VALUE_SEARCH_NAMECSDSC_W_LENGTH], .VALUE_SEARCH_NAMECSDSC_A_POINTER]) 
: 1064 2095 3 THEN 
3 1065 2096 3 RETURN TRUE; 
3 1066 097 ND; 
3 1067 098 
: 1068 2099 | 
: 1069 100 FALSE | 
: 1070 101 1 END; 
0004 00000 WILD_SEARCH_NAME : 
. Wd Save R2 : 2054 | 
52 00000000" EF 9E 00002 MOVAB VALUE_SEARCH NAME . 
12 FCE? C2 5 €1 00009 BBC #5, ITEM_PRESENT+9, o$ 


ee an ane 4 


8 9 
GE TQU SGETQUI service 16-Sep-1984 Se TE AX-11 Bliss-32 v4.0-74 Page 37 
v04-001 14-Sep-1984 22:33:24 JOBCTL.SRCIGETQUI.B32; (10) 
02 862 62 2A 3A 0000F LOCC #42, VALUE_SEARCH_NAME, = : 2087 
@VALUE_SEARCH_NAME +2 : 
97 12 00014 BNEQ 1 : 
02 862 62 5 3A 00016 LOCC #37, VALUE_SEARCH_NAME, = 3: 2094 
@VALUE_SEARCH_NAME +2 : 
o% 3 0018 BEQL : 
50 1 Baie 1$: MOVL #1, RO : 2096 
4 020 RET é 
50 D4 00021 2$: CLAL RO : 2101 
4 00023 RET é 


; Routine Size: 36 bytes, Routine Base: CODE + 04E9 
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SGETQUI service 15-sep-1984 00:03:34 AX-11 Bliss-3 


14-Sep-19 
ROUTINE RETURN_PARAMETERS(SRB,SJH): NOVALUE= 
1+¢ 


i FUNCTIONAL DESCRIPTION: 
This routine returns the QUIS_PARAMETER_i items if required. 


INPUT PARAMETERS: 

SRB - Pointer to SRB. 
SJH - Pointer to SJH. 
IMPLICIT INPUTS: 

NONE 


4 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
SRB: REF BBLOCK, ! Pointer to SRB 
SJH: REF BBLOCK; ' Pointer to SJH 
a: REF BBLOCK, 
ITEM_CODE, 
BUFFER: BBLOCK(L1024); 


FETCH_VARIABLE_DATA( 

SJH$S_PARAMETERS, SJHCSJH$T_PARAMETERS], 
ZALLOTATION(BUFFER), BUFFERS; 

A = BUFFER; 

E = .A + .BBLOCKCSJHC[SJHST_PARAMETERS), FVDF_LENGTH); 


INCR, ITEM_CODE FROM QUIS_PARAMETER_1 TO QUIS_PARAMETER_8 DO 
LOCAL 


IF .A LSSA .E 
THEN 


BEGIN 
L = .ACO,0,16,0); 


BF AAANNIAIAIIPIIPIPIPIPUNIPINININIAIPINININININDINIDS Ft 9 9 
~- 
Oo 
oO 
> 
a 
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SGETQUI service 18-se0-1 + 99: 93: 3 AX-11 Bliss-32 V eo 3555 Page 7 


984 JOBCTL. SRC GETOUI -B32; (11) 
; 159 & A= .A*2 
; 160 4 END 
: 161 ELSE 
; 196 L = 0; 
; 16 
; 164 
: 192 Create an output item descriptor in the SRB. 
0 . i 
; 187 I = LOCATE_SRB_OUTPUT_ITEM( | 
: 169 -ITEM_CODE, | 
; 170 . VALUE “GETGUI_BASE + ,ITEM_CODE * ODSC_S_ENTRY); | 
: 1% THEN 
; 173 4 BEGIN 
; 174 4 CHSMOVE (.L .1) | 
3 175 & COMPLETE. SRB. “OUTPUT. ITEM(.SRB, .L); 
; 176 END; | 
3 177 
; 178 
; 2179 A= A* .L; | 
: 2180 2 END; 
; 2181 1 END; | 
| 
O3FC 00000 RETURN. PARAMETERS: | 
WORD Save R2,R3.R4.RS.RO-R7-RB,RI ; 2102 | 
5E FCOO }§=6CE «(9E 0000 MOVAB =1024(SP), ; 
5E ob 0000 PUSHL SP + 2142 
7E 0400 8F %3C 00009 MOVZWL i024 -(SP) ; 
52 08 ac dO 2O00E MOVL H, R2 : 
01B2 C2 9F 0001 PUSHAB ; 4(R2) ; 
20 DD 00016 PUSHL # : 
000000006 ef 04 FB 00018 CALLS #4, FETCH. VARIABLE_DATA ; 
a 6— 9E 9001F MOVAB RAE > 2144 
59 0182 C2 3¢ 000 ‘ MOVZWL 434(R25, * > 2145 
59 3 CO 000 ADDL2 é : 
56 A DO O002A MOVL +58 ITEM_CODE : 2168 
59 58 D1 0002D 1$ CMPL SOA, E > 2155 
57 ae anit seer tke, L : 2158 
02 #4 $0038 BRB 38 : $188 
D4 900 7 a8: CLRL ; 3162 
50 56 OA ¢3 0039 3$: MULL3 #10, ITEM_CODE, RO : 217 
00000000'EF40 9F 90 D PUSHAB VALUE_GETOUI_BASECROJ ; 
56 DD 00044 PUSHL ITEM_CODE > 2169 
04 AC DD 0046 PUSHL § + 2168 
000000006 EF g FB 0004 CALLS #3, LOCATE_SRB_OUTPUT_ITEM F 
D5 00050 TSTL I : 2171 
10 13 00 22 BEQL © 4$ ; 
60 68 2 28 00 3 MOVC3) L, (A), (1) > 2174 
7 DD 00058 PUSHL L > 2175 
04 AC DD OO05A PUSHL SRB ; 
000000006 EF 02 FB 0005D CALLS #2, COMPLETE_SRB_OUTPUT_ITEM : 


GEIOH}, = SGETOUL service 1$Se0c1984 9:05:54 YANG TT BL fag32,v4.0:742 


x 7 ¢ ADDL 
BE 8 00000041 F FS Boge? ADaL Ea bes" ITEM_CODE, 1$ 


; Routine Size: 112 bytes, Routine Base: CODE-+ 050D 


F 9 
— ae Hes rik a a ote th hg Pd et 


; }} 2 } § } ROUTINE RETURN_RESULT(GOC, TABLE ,ACCESSIBLE,REC_N1,REC_1,REC_N2,REC_2,REC_N3,REC_3)= 
Me | RE Lie 

14 : 186 i FUNCTIONAL DESCRIPTION: 

3 11 : 1 1! This routine converts the values in one or more queue records to the 
; 1120 : : SRB format and returns the response to the user. 

: 1161 190 1 | INPUT PARAMETERS: 

: 1186 191 1! GQCc - Pointer to S$GETQUI context block. 

3 116 13§ 1 ! TABLE - Pointer to table describing possible outputs. 
: 11646 1! OLE SSIGLE - True if caller has read access to protected fields. 
3 1192 13e } RECN - Record numbers and pointers to queue records. 
: 1167 196 REC"N2 - 

: 1168 197 1! REC_2 - 

3; 1169 198 1! REC_N3 - 

atts 200 | | ms . 

; 1128 $6 1 IMPLICIT INPUTS: 

ie os 08 Be 

; 1123 AE ! OUTPUT, PARAMETERS: 

: 1177 06 1! 

; 1178 $09 1 ! IMPLICIT OUTPUTS: 

 11b0 $09 1 i — 

: 1181 210 1! ROUTINE VALUE: 

3 Hy $i} : 0, to inhibit central message response. 

> 1184 $518 1 i SIDE EFFECTS: 

3; 1185 214 1! NONE 

S| ee 

> 1188 $13 =" 

: 1190 $19 5 RAS 

: 1191 220 Gac REF BBLOCK, ' Pointer to $GETQUI context block 
3 1138 221 REC_1 REF BBLOCK, ! Pointer to block 

3 119 2 § REC _§ REF BBLOCK, : inet 

3 1194 2 oe REF BBLOCK; : ion 

3 1195 24 LOCAL 

3 1198 $2 REF BBLOCK ' Cursor for table 

> 119 6 SRB: BBLOCK(81923; ‘ Local SRB 

; 1198 2e7 BUILTIN 

; 1980 239 ACTUALPARAMETER; 

+ 1201 $0 

; 1208 $3 Create an SRB to return the response. 

; 1204 2 $ CREATE_SRB(SRB) ; 

:1 5 

3 1 $$ § ' Loop over each table element. 

; 1208 ‘ 

: 1209 8 T = . TABLE; 
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9 
1B-se -1984 00:05:34 AX-11 Bliss-32 V4.0-74 
1 ~308- 138% 99:93:34 NOBCTLe SREIGE FONT 63063 
WHILE 2 CB_ITER_CODEI NEQ 0 DO 

IF .ITEM_PRESENTC.TCB_ITEM_CODE]) 

THEN 


BEGIN 

LOCAL 
I: REF BBLOCK, ! Pointer to SRB storage area 
F: REF BBLOCK, ! Pointer to value in queue block 
S; ' Size of value 


Create an output item descriptor in the SRB. 
I = * + ln ati ahi clint 
. TCB_ ITEM CODE) 
VALUE_GETGUI_BASE + .TCB_ITEM_CODE] * ODSC_S_ENTRY); 
Get the input value pointer and size. 
4 . |e patties. demaenton ones + . TCW_BYTE_OFFSETI; 


! Dispatch to store the value in the SRB area and determine its 
actual size. 


' 
' 
' 
fo” -TCV_PROTECTED] OR .ACCESSIBLE 


BEGIN 
CASE -1CB_CASE] FROM K_COPY_ASCIC TO K QUEUE STATUS OF 


ASCIC): 
EGIN 


Copy the counted ASCII value at F. 
§ = CHSRCHAR(.F); 
aa fF + 


[k_COPY 
° 


1, o3dDa 


CK_COPY_FORM_NAME]: 
BEGIN 
Copy the name of the form pointed to by the longword 
' at F. 
' 


LOCAL 
SFM? REF BBLOCK; 
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H 9 
16-Sep-1984 00:05:34 AX-11 Bliss-32 V4.0-74 
13-38-1382 90:93:34 JOBCTL.SRC Geyayt 63005 
IF .SFM_N NEQ 0 
THEN 


rz 
>~ 
=: 
i 
~~ 


ME et, ob af 
J; 


END; 
CK_COPY_QUEUE_NAME): 
BEGIN 
Copy the name of the queue pointed to by the longword 
' at F. 


! 
LOCAL 
SMQ_N, 


SMQ: REF BBLOCK; 
SMQ_N = ..F; 
IF 7SMQ_N NEQ 0 
THE 
BEGIN 
SMQ = READ_RECORD(.SMQ_N); 
S = CHSRCHAR(SMQCSMQ$T NAME]J); 
CHSMOVE(.S, SMQCSMQ$T_RAME] + 1, .1); 
RELEASE_RECORD(.SMQ_NJ; 
END; 
END; 
CkK_COPY 
BEGT 
Copy the value described by the short descriptor at F. 


§ = .FCSDSC_W LENGTH]; 
EUSMOVE(.5. -PESDSC_A_POINTER], .1); 


SDSCI: 
N 


[K_COPY_TRIMMED): 
BEGIN 


i Copy the value at F of Length S, trimmed of trailing 
spaces and nuil characters. 


S = ,TCW_SIZE); 
WHILE .S NEQ 0 DO 
BEGIN 
IF CHSRCHAR(.F + .S = 1) NEQ 2C° ° 
AND CHSRCHAR(.F + .S = 1) NEQ 0 
; se XITLOOP; 
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END; 
CHSMOVE(.S, .F, .1); 
END; 
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CK_COPY VALUE): 
BEGIN 


; Copy the value at F of Length S. 


é = .TCW_SIZE); 
Cwsmdve ~ ee pe 


CK_COPY_VARIABLE): 
BEGIN 


Ww 
ss 


Copy the variable data field at F of Length S. 


ETCH VARIABLE DATA(.TCW_SIZEJ, .F, 512, .1); 
_ «FCF VDF _LLERGTHI; 
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CK_COMPLETED_BLOCKS): 
BEGIN 


Generate the completed blocks item. 


BIND 
SMQ_N= REC_N1, 
SMO= REC 71: REF BBLOCK, 
SJH_N= REC "N2, 
SJH= REC 72: REF BBLOCK; 
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1 = 0; 
if NOT . SMQCSMQ$V_BATCH] 
i = .SJHCSJHSL_COMPLETED_BLOCKS] + SYMBIONT_COMPLETED_BLOCKS(.SJH); 
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364 
365 9 
366 95 
7 96 
9 
369 398 (K_FILE_FLAGS): ‘ 
$59 399 BEGIN 
71 400 : 
36 401 ! Generate the file flags item. 
3 40 ‘ 
74 40 BIND 
375 404 SMQ_N= REC_N1, 
% 405 SMQ= REC_1: REF BBLOCK, 
7 86 SJH_N= REC_N2, 
78 40 SJH= REC_2: REF BBLOCK, 
79 408 SQR_N= REC"N3, 
80 409 SQR= REC_3: REF BBLOCK; 
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$GETQUI i 16-5 ; 4 AX-11 Bliss-32 v4.0 P 46. f 
service Sep — ss- age 

14-Sep sats ri 98: 93: 34 JOBCTL.SRCIJGETQUI. g33 ° (12) | ve 
: 467 6 | : 
; tes 6 ' Generate the form flags item. ‘ 
; 46 6 i : 
3 1461 470 6 BIND ; 
: 144g 71 6 SFM_N= REC_N1, | ‘ 
> 144 ae 6 SFM= REC“: REF BBLOCK; | : 
+ 1444 473 6 ; 
5 1445 474 6 F 
; 1446 475 6 ls : 
> 144 476 6 iF “SPACstnsy ae FEED) | : 
+ 1448 477 6 N ICQUT$V FORR HEET_FEEDJ = TRUE; ; 
> 1449 478 6 IF SF RLSERBY ; 
; 1450 479 6 Ne ICQUTSY FORA TRUNCATE] = TRUE; : 
3 1451 480 6 IF a FASE RY J | : 
: 1626 481 6 THEN ILQUTSV.. FORM_WRAP] = TRUE; ‘ 
: 145 48 § = 4; ‘ 
: 1454 48 END; : 
: 1455 484 : 
: 1456 485 5 : 
: 1457 486 5 CK_GENERIC_TARGET): : 
: 1458 487 6 BEGIN | : 
: 1459 488 6 : 
; 1460 489 6 Copy the names of all queues potated to by the generic : 
3 1461 490 6 target record pointed to by the longword at F. : 
; 1462 491 6 : 
: 146 492 6 Locat | ; 
+ 1464 493 6 AUX_N, ; 
+ 1465 494 6 AUX? REF BBLOCK; | : 
> 1466 495 6 F 
: 1467 496 6 | ; 
> 1468 497 6 AUX_N = ..F; ; 
> 1469 498 6 IF [AUX_N NEQ 0 ; 
3; 1470 499 6 THEN 3 
+ 1471 500 7 BEGIN : 
: 147 501 7 = READ RECORD (. AUX_N); ; 
3 147 $206 7 IN NCR “J FROR 1 TO .VECT CTOR RLAUXCSYM$T_DATAJ, 0] DO | 3 
3 1474 503 8 BEGIN 3 
: 1475 504 8 LOCAL F 
: 1476 505 8 S | : 
> 147 506 SM _N, | : 
: 1478 507 SMQ: REF BBLOCK; : 
> 1479 508 : 
: 1480 509 SMQ_N = ,VECTORLAUXESYMST DATA], .J): : 
> 1481 510 SMQ™= READ RECORD(.SMQ_N | 3 
: 14 é 511 LS RCRAR(SROCgROST NAME) ; | 3 
: 14 318 : I = “CHSROVEC LS, SMQCSMOST "NAME +1, .1); ; 
> 1484 51 CHSWCHAR_ACXC',*, 1); : 
: 1485 514 8 S$ = .$ #7.LS + “at ; 
3 1486 515 8 RELEASE_RECORD(.SHQ_N); | : 
> 14 316 END; | : 
: 1488 517 7 $= .$-1; | 3 
> 1489 518 7 RELEASE_RECORD(.AUX_N); | : 
> 1490 519 § END; | : 
3: 1491 520 END; ° 
5 149; 521 | : 
3 149 5 § 3 
> 1494 § CK_INTERVENING_BLOCKS): : 
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BEGIN 
Copy the number of intervening pending blocks. 
gt gs ITEM RINS PEERS: 
END; 


CK_INTERVENING_JOBS): 
BEGIN 


Copy the number of intervening pending jobs. 
21 _=, .GQCCGQC_ INTERVENING, JOBS]; 
END; * 


CK_JOB_FLAGS): 
BEGIN 


Generate the job flags item. 


REF BBLOCK, 
REF BBLOCK; 


-1 = 0; 
IF -Suhitsausy CPU_MAXIMUM] 

THEN ICQUT$V_JOB CPU_LIMIT] = TRUE; 
IF SURES JHSV FICE —_BORST 

THEN ICQ Ursy J68 pute BURST = TRUE; 


“THEN ICQUT$V_JOB FILE BURST ONE] = TRUE; 
IF .SJHCSJHSV Fice BORST_EXPLICIT] 

THEN ICQUT$V_JOB FILE_BURST_EXP] = TRUE; 
IF SJHESINSY Pice FCAG 

THEN I OUTS J68 pite . AG) = TRUE; 
IF Bats rice FCAG 

THEN ICQUT$V_J6B ‘ep FLAG OnE) = TRUE; 
IF SMCS UHBV rice FCAG_ERPL 

ICQu 1$v J6B_FICE FLAG. te) « TRUE; 

IF SoHE SJHSY rice TR R} 


AILE 
THEN ICQUT$V_JOB FILE TRAILER] = TRUE; 
If .SJHCSJHSV_FICE TRAILER _ONE 
THEN ICQUT$V_JOB FILE TRAILER ONE) = TRUE; 
IF .SJHCSJHSV FICE TRAILER_EXPLICIT) 
EN ICQUT$V 10 eB EILE TRAIL ILER_ EXP) = TRUE; 
If .SJHCSJHSV LO eCETE 
THEN ICQUTS$V 106 LOG_DELETE) = TRUE; 
IF .SJHCSJH$V_LOG mul 
HEN ICQUT$V_JOB BLOG. NULL] = TRUE; 
IF .SJHCSJH$V_LOG_S?O0 
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POOL] = TRUE: : 
:1 1 THEN ICQuIsy 108 LOG. S | ; 
: 1 § 4 é . SABES HRY eb Ooe V nt LOWERCASE) = TRUE; | 
> 1555 4 6 IF .SJHESJH I | : 
: 1 85 6 THEN ICQUTSV JOB NOTIFY] = TRUE; | : 
; i ; $8¢ 4 a Suns iae Ursy JOB FiLe PAGINATE) = TRUE; 
> 1559 588 6 IF -SIMUSINSY PAGINATE | 
: 1 60 589 6 THEN ICQ ouTSy V 5108 a ETE PAGINATE _EXP] = TRUE; | : 
: 136) 234 ¢ “i Tees Hours io JOB RESTART = TRUE; | 
2 8 92 6 IF SINE SHHRY WSBEFAOLT | : 
: 188 te THEN ICQUI$V. JOB WSDEFAULT] = TRUE; ; 
: eee 594 6 IF «SdH HESUHBY WSEXTERT | : 
: 1282 595 6 THEN QuTSv 108 WSEXTENT] = TRUE; 
: 1388 596 6 IF SAMUS HW ; 
: 1868 239 6 THEN IEQUTs¥ JOB _WSQUOTA] = TRUE; 
We BBS bs, ; 
HB 80 ea: 
: 1398 602 5 pipe | ; 
> 1574 603 6 BE | 
: 1332 ge g i Generate the job status item. | 
> 1577 2606 6 te | 
: 1358 ats 3 SMQ_N= REC_N1, 
: }8h0 5609 6 SMQZRECT1: REF BBLOCK, | 
; 18B2 $ei9 e Stall REE ne” REF BBLOCK; | 
Hg Bie | 
: 1385 gis @ i 63 RTED] OR .SJHCSJHSV ABORTING] 
; 1387 2618 é ‘ “face ite $V, J08 ABORT ih AoT -SJHESUNSV, FILE_STARTING] 
; 1889 at 3 “ sas deS UTS JOB pasha =" TRUE 
; 1399 $653 g - SUNES SY JOB_HOLDING] = TRUE; | 
; 1898 3692 3 i NONEN TEOUTS¥ JoB NACCESSIBLE] = TRUE; | 
: 1398 3 4 e a ese oirey 4 JOB_REFUSED] = TRUE; | 
: 1898 ose 8 IF .SJHCSJHSY REQUEU | 
: 1399 626 6 THEN 1CQU Thefts REQUEUE] = TRUE; | 
z 1398 re 3 - Bet et y V_ JOB i ESTARTING) = TRUE: | 
1800 629 & IF He Hat ae ra | 
: 1601 os) 8 IF CHES JHSY. St veacd. OR .S JHESNSY FILE_STARTING) | 
: 180 o33 3 “THEN ICQ A a a2 go UARTIN Net men ET | 
; 1808 oe d atone asite JOB_ FIREDT= TRUE; 
1 BB bi: 
: 1608 2637 5 
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CK_QUEVE FLAGS]: 
BEGIN 


; Generate the queue flags item. 


REF BBLOCK; 


N_ICQUT$V_ QUEUE JOB_FLAG] = TRUE; 
~ SMQCSMQSV_JOB_TRAICER) 
THEN ICQUT$V GUEVE JOB_TRAILER] = TRUE; 


a) 
THEN ICQUT$V_QUEDE RETAIN _ALLJ = TRUE; 


Jo 
THEN ICQUT$V_QUEOE_RETAIN_ERROR] = TRUE; 
. SMQCSMQ$V_ SWAP 

THEN ICQUT$V_QUEUE_SWAP] = TRUE; 

. SMQCSMQ$SV_TERMINALT 

THEN ICQUT$V_QUEUVE TERMINAL] = TRUE; 

. SMQCSMOQSV_WSBEF AULT) 

THEN ICQUT$V_QUEUVE WSDEFAULT) = TRUE; 

. SMOCSMOQSV_WSEXTENTI 

THEN ICQUTS$V_QUEVE_WSEXTENT] = TRUE; 

. SMOCSMQ$V_WSGUOTA 
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3 1 695 6 THEN ICQUISV_QUEVE_WSQUOTA] = TRUE; ; 
: 166 69 $= 4; 3 
; 1668 69 END; : 
: 1669 69 ; 
; 1670 4 : 
: 1671 0 CK_QUEUE_ STATUS]: : 
; 167¢ 701 6 BEGIN ; 
3 167 702 6 ' ; 
3: 1674 703 6 ! Generate the queue status item. : 
; 1675 704 6 i ; 
3 1676 705 6 BIND ; 
3 1677 706 6 SMQ_N= REC_N1, ; 
: 1678 707 6 SMQ=«REC71: REF BBLOCK; | ; 
3 1679 708 6 ; 
: 1680 709 6 | 
3 1681 710 6 1 = 0; ; 
: 1082 711 6 if .SMOCSMOSV_ALIGNING) 3 
3: 168 ie 6 THEN ICQUT$V_QUEUE_ALIGNING] = TRUE; ° 
3 1684 2713 6 IF .SMQCSMG$B CURRENT JOB COUNT] EQL 0 ; 
3 1685 2714 6 THEN ICQUT$V_QUEUE_IDCEJ = TRUE; : 
: 1686 gle 6 IF .SMOCSMQ$V LOUERCAS ; 
3 1687 716 6 THEN ICQUT$V_QUEUVE_LOWERCASE] = TRUE; : 
: 1688 e717 6 IF .SMQCSMQ$V_OPERATOR_REQUEST : 
3 1689 2718 6 THEN ICQUT$V_QUEUE-OPERATOR_REQUEST] = TRUE; ; 
; 1690 ah, 6 IF .SMQCSMQ$V_PAOSE ND NOT .SMQCSMQ$V_ALIGNING] AND NOT .SMQCSMQ$V_RESUMING] : 
3 1691 720 6 EN ICQUT$V_QUEUE_PAUSED] = TRUE; ; 
3 1692 2721 6 IF .SMQCSMQ$V_PAOSING | : 
: 1693 $ise 6 HEN ICQUT$V_QUEUVE_PAUSING] = TRUE; : 
3 1694 723 6 IF .SMQCSMQ$V_REMOTE : 
3 1695 2724 6 THEN ICQUIS$V_QUEUE_RE“OTE] = TRUE; : 
3 1696 2725 6 IF .SMQCSMQ$V_RESETTING) ; 
3 1697 2726 6 THEN ICQUT$V_QUEUE_RESETTING] = TRUE; ; 
: 1698 2727 6 IF .SMOCSMQ$V_RESUMING] AND NOT .SMQCSMQ$V_ALIGNING] | : 
: 1699 2728 6 THEN ICQUT$V_QUEUE_RESUMING] = TRUE; : 
3; 1700 2729 6 IF .SMQCSMQS$V_SERVER 3 
3 1701 2730 6 THEN ICQUT$V_QUEUE_SERVER? = TRUE; : 
: 1708 373] 6 IF .SMQCSMQ$V_STALLED : 
3; 170 732 6 THEN ICQUT$V_QUEUVE_STALLED] = TRUE; ; 
: 1704 2733 6 IF .SMOCSMOSV_ STARTING] | ; 
: 1705 734 6 THEN ICQUT$V_QUEUE_STARTING] = TRUE; ; 
> 1706 2735 6 IF .SMOCSMOSV_ STOPPED ; 
: 1707 2736 6 THEN ICQUI$V_QUEUE_STOPPED] = TRUE; : 
: 1708 737 6 IF .SMQCSMQ$V_STOPPING] 3 
3 1709 738 6 THEN ICQUT$V_QUEUE STOPPING] = TRUE; : 
3 1710 739 6 IF .SMQCSMQ$V_UNAVAILABLE] ; 
: 1711 740 6 THEN ICQUT$V_QUEUVE_UNAVAILABLE] = TRUE; : 
: i7i¢ 741 6 S = 4; : 
: 171 rae 5 END; 3 
3 1714 743 «5 : 
3 1715 744 5 ; 
: 1716 745 5 TES; : 
: 1717 746 4 END; : 
: 1718 747 & : 
3 1719 748 & : 3 
; 1720 749 4 ! Finish the output item descriptor. 3 
+ 1721 3730 4 ' : 
: 1722 751 4 COMPLETE_SRB_OUTPUT_ITEM(SRB, .S); ; 
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Advance to next table entry. 
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: se” -T + KLENTRY_SIZE; 
760 
43 } Special case storing the parameter items. 
768 if .BBLOCKCITEM_PRESENT, 0, QUIS_PARAMETER_1, 8, 0] NEQ 0 
165 RETURN_PARAMETERS(SRB, .REC_2); 
eo 
768 ! Cancel the intervening counts. 


GOCCGQC_INTERVENING -BLOCKS] = 0; 
GQCCGQC" INTERVENING JOBS) = 0; 


i message response. 
SEND _SERVICE_RESPONSE_MESSAGE(SRB, JBCS_NORMAL); 
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2 
; ! Send the response to the requestor and return zero to inhibit the central 
2 
1 


OFFC 00000 RETURN_RESULT: 


-WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 2182 
5E DFF8 CE 9E 00002 MOVAB =8200(SP), ; 
08 AE 9F 00007 PUSHAB SRB ; 2233 
000000006 EF 01 FB OOOOA CALLS #1, CREATE_SRB ; 
56 08 AC 00 00011 MOVL TABLE, T > 2238 
66 95 00015 1$ TSTB (TT) ; 2239 
03 12 00017 BNEQ = 2$ ; 
0497 31 00019 BRW 124$ ; 
50 66 9A OOOIC 28: MOVZBL (T), RO : 2241 
03 00000000" EF 39 0 O01 BBS Rg ITEM_PRESENT, 3$ ; 
04 1 7 BRW 12$$ ; 
50 A 00084 3$: MOVZBL (1), RO ; 2255. 
50 C4 0002D MULL2 #10, RO ; 
00000000'EF40 9F 000 9 PUSHAB VALUE_GETQUI_BASECRO)] : | 
7E 66 9A 000 MOVZBL (T), =(SP : 3254 | 
10 AE 9F OOO3A USHAB SRB 3 2282 | 
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PUSHL 
PUSHAB 
CALLS 
125$: MOVL 
CLRQ 
PUSHL 
PUSHAB 
CALLS 
CLRL 
ET 
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; i ; f 9 } ROUTINE QUI_CANCEL_OPERATION(GQC)= 

: 1754 7 § 1 le4 

; 1755 7 1! 

3 17 : 784 1 ! FUNCTIONAL DESCRIPTION: 

$ \f 4 4 5 ! This routine processes the QUIS_CANCEL_OPERATION request. 
: 1785 7 5 1 ! INPUT PARAMETERS: 

: 1760 788 1! Gac - Pointer to $GETQUI context block. 
: 1761 789 «1! 

3 1766 790 1 ! IMPLICIT INPUTS: 

3 1107 £9) } } MBX - Pointer to buffered mailbox message. 
: 1765 79 1 ! OUTPUT PARAMETERS: 

: 1766 794 1! NONE 

3 1767 795 1! 

3; 1768 796 1°! IMPLICIT OUTPUTS: 

: 1769 797 1! NONE 

: 1770 798 1! 

3 1771 799 1 ! ROUTINE VALUE: 

3 44 2800 1! Completion status to be returned to requestor. 

: 177 $003 1! 

3; 1774 802 1 ! SIDE EFFECTS: 

3 1775 2803 1! NONE 

3; 1776 804 1! 

3 1777 805 1 !-- 

: 1778 806 1 

; 1779 807 BEGIN 

; 1780 gene MAP 

3; 1781 809 GQCc: REF BBLOCK; ! Pointer to $GETQUI context block 
: 1786 seit 

; 178 811 : , 

> 1784 seis ! Cancel the pending wildcard operations, if any. 

3; 1785 281 ! 

3; 1786 2814 GOCCGQC_ WILDCARDS] = 0; 

3; 1787 2815 

3; 1788 2816 § 

3; 1789 2817 SS$_NORMAL 

: 1790 2818 1 END; 


0000 00000 QUI_CANCEL_OPERATION: : 
-WORD Save nothing 


50 04 AC 00 00002 MOVL GQc, R 
08 Ad OF 8A 00006 BICB2 #15, 8(RO) 
50 01 00 O000A MOVL wi, RO 
04 0000D 


Routine Size: 14 bytes, Routine Base: CODE + 0A60 
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K 10 | 
SGETQUI service 16-Sep-1984 05:34 AX-11 

14 Haat 1 99:93:32 JOBCTL | 
ROUTINE QUI_DISPLAY_CHARACTERISTIC(GQC)= 
144 


' 
FUNCTIONAL DESCRIPTION: 
This routine processes the QUIS_DISPLAY_CHARACTERISTIC request. 
INPUT PARAMETERS: | 
GQc - Pointer to S$GETQUI context block. 


<A 
ge 
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IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


oO 
“ 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
Completion status to be returned to requestor. 


SIDE EFFECTS: 
NONE 


FFWAWNWIWWIWwinononononononononen — 


=O ODNAUE WN (OOO NOUS WN 0O0 


028.00 09 C9 C9 CD CD CD. 
1999 fete te Cr ee eee re 


as 
REF BBLOCK; ' Pointer to $GETQUI context block 
REF BBLOCK; ! Pointer to SCX entry 
LITERAL 
_SCE= K_REC_1; 
LABEL 
FIND_SELECTED; 


LOCAL 


WAIWAARPIPUNOPUPINININYDYS 2 OS 


Ensure that a search name was specified. 
iF NOT .ITEM_PRESENTCQUI$_SEARCH_NAME J 
RETURN JBC$_MISREQPAR; 


FAN 


POPSPONIPIPPINPONININNIPINPONINIPNINONINIPIPONI PINON POP NO PON Nonononony 
‘Cd C9 Gd Od Cd Od Od Cd Cd Cd Od Od C9 OD 09 09 Od OS Cd OD OD CD OD OD 
PAR Ae RA Se ye eee A a ye 
Wms —"DOONOUESWN "OO OdOVNOusL 
AWA AIPRIPIPOPOPONNOPPOPONINOPUPUPUPININININININININININID 4 2 2 


Set the characteristic wildcard bit. 
GOCCGOC_SCX_WILDJ] = WILD_SEARCH_NAME(); 


WAN 


: If this is the first call, advance to the first characteristic record. 
if .GQCCGQC_SCX_NJ EQL SQH$K_RECNO 
THEN 


BEGIN 
LOCAL 
SQH: 


DONO UE WN —OOCOnNOu 
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REF BBLOCK; ' Pointer to SQH 
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TQ SGETQUI service 16- Sep-19 4 AX-11 Bliss-32 V4.0-74 Page 60 G 
gba 001 -Sep 5-19 38 99: 93: 34 NOBCTLe SR ReIGETOUL B308 . (14) v 
; 1849 7 ; 
; 1850 7 SQH = READ_RE "> Santon RECNO); . 
> 1851 7 GOCEGaC scx N L CHARACTERISTIC_LIST); : 
Bz ¢ 7 GOCLGQC"SCE“N Sey TEOFr SETCSYNBT_DATAD = SCX$S_SCX; . 
71 0 RELEASE RECORD ( SQHSK_RECNO) ; | ; 
3: 1854 1 END; ° 
| waa} 
» 3 4 FIND_SELECTED: BEGIN | ; 
: 1889 He 
- ' ° 
1399 i Loop over characteristic index records. | : 
; 1306 89 WHILE TRUE DO 3 
: 186 890 4 BEGIN F 
: 1864 891 4 LOCAL ; 
; 1865 O36 & SCX_N, ! Record number of SCX : 
s 1308 8935 4 SCX: REF BBLOCK; i Pointer to SCX 3 
: 186 894 4&4 : 
; 1868 895 4 ; : 
; 1869 896 4 ' No more records -- return failure. ; 
: 1870 897 4 ! 3 
; 1871 898 4 IF .GQCCGQC_SCX_NJ EQL 0 : 
3 1376 899 4 THEN 3 
3; 187 900 5 BEG ; 
3 1874 901 5 et etcac SCX_WILD] = FALSE; ’ 
3; 1875 2902 5 RETURN JBC$_NOSUCHCHAR; 3 
: 1876 9035 4 END; a 
1806 908 4 
: 1879 906 4 ' Read the characteristic index record. | : 
; 1880 907 4 ! 3 
; 1881 2908 4 = SCX = READ_RECORD(SCX_N = .GQCCGQC_SCX_N]); | : 
; 1856 909 4 $ 
; 188 910 4 , : : 
: 1884 911 4 ' Loop over characteristic entries. : 
3; 1885 4 | 4 ! 3 
3; 1886 91 4 WHILE TRUE DO ‘ 
Bae 2315 3 — 
; 1889 916 5 ! Advance to next entry, and ensure that it is valid. , 
3; 1890 2917 § i : 
3; 1891 2918 5 if Mes Terre seecteee ~fo NO apy) 3 
$ 1398 4h 5 “ai G QCCGQC_SCE_N) + SCX$S_SCX ; 
3; 189 920 5 IF ourtcor: c6e Q aon SBYTFOFESETES fay $T DATA A) +°SCX x$s_ SCX * SCXSK_ENTRIES : 
5 1O3e 2921 5 TH EN EX? Lop : 
: 1895 392¢ 5 SCE = .SCX actcac_s | : 
: 1998 33 Z IF CHSREHARCSCECSCRST NAMED) EQL 0 THEN EXITLOOP; | : 
3 1898 925 : : 
3 Hb 44 $3 $ 5 Match this entry with the selector. | : 
: 1901 928 2 if FMGSMATCH_NAM wars : 
s 1908 4 5 CHERCHARTSCE NAME 1 NAME)), 3 
: 190 930 SCECSCXST | : 
3 1904 931 . VALUE _SEAR nane DSC_wW TH) | : 
> 1905 2932  VALUE~ SEARCH NAMELSDSC~ AP TERS) | : 

j 


TQ SGETQUI service 16-Sep- 4 AX-11 Bliss-32 V4.0-74 Page 61, 
Ghacbot 14- ~tep- 1382 99: 3: 34 JOBCTL.SRCJGETQUI .B32; : (14) | 
| 
3: 1 933 THEN ; 
: 1309 934 3 LEAVE FIND_SELECTED; | : 
; 1908 935 4 END; | ; 
: 1909 9 § 4 | ; 
+ 1910 937 4 : 
; Lb ap 4 5 ? Advance to next characteristic index record. | : 
3 1318 940 4 Gactcac_sc¢ SCX KN} = .SCXCSYMSL_LINK); F 
> 1914 941 4 GaCctG SBYTEOFFSET(SYRBT _DATA) = SCX$S_SCX; ; 
> 1915 942 4 RELEASE “RECORD (. stk N F 
; 1916 94 END; : 
: 191 944 ; 
: 1918 945 ; 
: 1919 94 END; ! of block FIND_SELECTED : 
: 1920 94 | ; 
: 1921 948 : 
: 4 ¢ 3c) Return information about the selected characteristic. : 
: 1924 951 RETURN_RESULT( : 
> 1925 93¢ ; 
: 1926 P 295 GENERATE_TABLE ( F 
: 1927 P 2954 Quis CHARACTERISTIC NAME « | : 
: 1928 P 2955 SCE, COPY_ASCIC, FALSE, S$BYTEOFFSET(SCX$T_NAME), 0, : 
; 1988 ep $328 QuIs_ CHARACTERISTIC NUMBER ; 
; 1930 95 _SCE, K_COPY_VALUE, FALSE, S$BYTEOFFSET(SCX$B_NUMBER), 1), : 
+ 1931 2998 : TRUE, : 
: 1932 959 0, .SCE) : 
: 193 2960 1 END; : 
OOA6E .BLKB 2 F 
00 00 05 05 OOA70 P.AAA: BYTE 5, 5, 0, 0 : : 
0000 0000 00A74 -WORD 0, 0 : : 
00 05 05 06 OOA78 .BYTE 6, 5, 5, 0 ; : 
0001 0020 O0a7c “WORD 32, f : : 
00 00A80 -BYTE 0 ; ; 
OFFC 00000 QUI_DISPLAY_CHARACTERISTIC: : 
. WORD save, Re Ra AR 4,R5, 56. ny. R8,R9,R10,R11 : 2819 3 
08 00000000' EF 05 £0 0000 BBS EM_PRESENT+9 > 2859 : 
0 00048108 8F BO 2000, MOVL stl RO ; 2861 | : 
4 00011 RET ; : 
56 04 ac 00 00012 1$: MOVL : 2866 : 
FAGD CF 00 FB 0016 CALLS a0. ‘ut to, SEARCH NAME ; : 
08 Ab 01 00 50 F 60018 INSV W2tae , BCR) : : 
59 0c Ab 9E 00021 MOVAB in > 2871 ; 
01 69 D1 00025 CMPL ; : 
1A 12 09 8 BNEQ iad ; 3 
01 DD O002A PUSHL #1 : 2877 : 
000000006 EF 01 FB 00 CALLS #1, READ_RECORD ; : 
69 10 A D OVL  16¢SQH),~(R9) : 2878 : 
10 Ab 15 CE MNEGL uel, NbtROD : 2879 : 
ot DD B PUSHL @# : 2880 3 
000000006 EF 1 FB 00030 CALLS #1, RELEASE_RECORD : : 
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: 1935 961 1 ROUTINE QUI_DISPLAY_FILE(GQC)= : 
3; 19 306 1 ‘ 
3; 19 965 1 I++ ‘ 
; 1938 964 1! : 
; 1939 965 1 ! FUNCTIONAL DESCRIPTION: ‘ 
5 Hb + } This routine processes the QUIS_DISPLAY_FILE request. ‘ 
; 194¢ 968 1 ! INPUT PARAMETERS: : 
3 194 969 1! Gac - Pointer to $GETQUI context block. ‘ 
> 1944 970 1! : 
3 19465 971 1 ! IMPLICIT INPUTS: ; 
3 1368 44 aa MBX - Pointer to buffered mailbox message. ‘ 
3 194 975 1! : 
3; 1948 974 1 ! OUTPUT PARAMETERS: é 
: 1949 975 1! NONE : 
: 1950 976 1! ‘ 
3: 1951 977 1°! IMPLICIT OUTPUTS: ; 
; 1306 978 1! NONE : 
3; 195 979 1! : 
3 1954 980 1 ! ROUTINE VALUE: ; 
; 1955 2981 1! Completion status to be returned to requestor. | : 
3; 1956 2982 1! : 
3; 1957 98 1 ! SIDE EFFECTS: : 
: 1958 984 1! NONE . 
3; 1959 985 1! ; 
: 1960 986 1 !-- : 
: 1961 987 1 | : 
: 1962 988 2 BEGIN | ; 
3: 196 2989 MAP ; 
3: 1964 2990 GQc: REF BBLOCK; ' Pointer to $GETQUI context block ; 
; 1965 2991 LOCAL 3 
; 1966 3444 SMQ_N, ' Record number of SMQ : 
: 1967 99 SMQ: REF BBLOCK, ' Pointer to SMQ ° 
; 1968 954 SJH_N, ' Record number of SJH ; 
3; 1969 2995 SJH: REF BBLOCK, ' Pointer to §$ : 
; 1970 2996 SQR_N, ' Record number of SQR : 
3; 1971 2997 2 SQR: REF BBLOCK; ! Pointer to SQR ; 
5 1Or¢ 2998 LITERAL : 
3; 197 999 _SMQ= K_REC_1, ‘ 
: 1974 000 K_SJH= K REC Ag. | : 
3; 1975 001 K_SQR= K_REC_3; : 
3; 1976 Oe : 
: 1977 00 | ; 
: 1978 004 ! If the wildcard bit is clear, this request returns information about the 3 
3 1227 Bae ; current batch job. ‘ 
: 1981 00 iF NOT .VALUE_SEARCH_FLAGSCQUISV_SEARCH_WILDCARD] | : 
5 1986 008 THE : 
: 198 009 BEGIN ; 
3: 1984 010 | : 
: 1985 011 ' Locate the data for this job. : 
: 1986 at ! ; 
3; 1987 01 IF NOT FIND PROCESS DATA( : 
; 1988 014 PDE K_BATCH, -MBXCACMSL_PIDI, FALSE; : 
: 1989 015 » SMQ™N, SJH_N) 3 
: 1990 bi9 : 
: 1991 1 RETURN JBC$_NOSUCHF ILE; : 
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 SJHCSJHSL_CURRENT_FILE_LINKJ); 


BEGIN 


' If no job context has been established or we have reached the end of the 
file List, return an error. 


if .GQCCGQC_SMQ_N] EQL 
OR .GQCCGQC“SJH-NJ EQL 
OR .GQCCGQC~SQR-NJ EQL 0 


RETURN JBC$_NOSUCHFILE; 
! Read the queue record and the job record, establish the first or next file 
record to be returned, and read the file record. 
SMQ = READ_RECORD(SMQ_N -GOCEGOC_SMd_N ); 
SJH = READ_RECORD(SJH_N = .GQCLGQC_SJH_NJ); 
aa GOC_SQR_N) EQC SQHSK_RECNO 


BEGIN 
SQR_N = .SJHCSJHSL_FILE_LISTI; 


BEGIN 
SQR = READ RECORD(.GOCCGQC_SQR_NJ); 
SQR_N = .SORCSYMSL Royse 
RELEASE_RECORD(.GQCCGQC_SQR_NJ); 


IF .SQR-N EQL 0 THEN RETURN JBCS_NOSUCHF ILE; 
to = READ_RECORD(GQCCGQC_SQR_N]J~= .SQR_N); 


Return information about the selected file. 
RETURN_RESULT( 


GENERATE _TABLE ( 
QUIS“FILE_COPIES, 
KSQR, K_COPY_VALUE, TRUE,  S$BYTEOFFSET(SQRSB_FILE_COPIES), 
QUIS_FILE~COPIES CHKPT; 
K"SJH, _R COPY. VALUE, TRUE, SBYTEOFFSET(SJHSB_FILE_COPIES_CHKPT), 
QUIS_FILE~COPIES BONE, 
SJH, R_COPY_VALUE, TRUE, SBYTEOFFSET(SJHSB_FILE_COPIES_DONE), 


K 
QUIS_FILE~FLAGS, 

K7SOR, K FILE FLAGS, TRUE, 0, 
QUIS_FILE-SETUP_MODULES 


K_COPY VARIABLE, TRUE, SBYTEOFFSET(SQRST_FILE_SETUP_MODULES), 


K7S 
QUIS_FILE SPECIFICATION 


QR, K_COPY_ASCIC, TRUE,  S$BYTEOFFSET(SQRST_FILE_SPECIFICATION), 


| 
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SGETQUI service 16-Sep-1984 4 AX-11 Bliss-32 V4.0-74 
1 14- ates 1984 99: 93: 3 JOBCTL.SRCIGETQUI. B3oe3 
: 2049 P 3075 QUIS_FILE_STATUS, 
: 2050 P 076 K-SQR, K_FILE_STATUS, TRUE, 0, 
> 2051 P 307 QUIS_FIRST PAGE, ~ 
: 20 é P 078 k_SQR, K_COPY_VALUE, TRUE, SBYTEOFFSET(SQRSL_FIRST_PAGE), 
; 05 P 307 QUIS_LAST~PAGE, 
5 2054 80 R, K_COPY_VALUE, TRUE,  SBYTEOFFSET(SQRSL_LAST_PAGE), 
; $e 6 ! Como ACCESS $f, oe 9° .SQR_N, .SQR) 
: id 88 ; ¥5 
01 05 09 10 00B48 P.AAB: .BYTE 16, 9, 5, 1 
0001 0044 O0B4C “WORD 68, 1 
01 05 O07 11 00B50 BYTE 17.7, 5, 1 
0001 0178 00854 “WORD 376, 1 
01 05 07 Mg 00858 “BYTE 18, 7, 5, 1 
0001 0179 0085¢ “WORD 377, 1 
01 08 09 13 00860 “BYTE 19, °9, 8, 1 
0000 0000 00864 “WORD 0, 0 
01 06 09 14 00868 “BYTE 206, 9, 6, 1 
0006 0045 00B6C “WORD 69. 6 
01 00 09 15 00870 “BYTE él. *, 0. 1 
0000 0048 00874 “WORD 75. 0 
01 09 09 16 00878 BYTE 22. 9, 9, 1 
0000 0000 00B7¢ “WORD 0, 0 
01 05 17 00880 “BYTE 2%, 9, 5, 1 
0004 003C 00B84 “WORD 60. 4 
01 05 09 32 00B88 BYTE 50, 9, 5, 1 
0004 0040 O0B8C [WORD 64. 4 
00 00890 - “BYTE 0 
OE7C 00000 QUI_DISPLAY_FILE: 
WORD Save R2,R3,R4,R5,R6,R9,R10,R11 
56 000000006 FF 9— 00002 MOVAB REA D_RECORD 
2F 00000000' EF 1 £0 00009 BBS VALUE RSEARCH. FLAGS, 1$ 
7E D4 00011 ae “(ép) 
50 00000000" EF D0 00013 MOVL 
28 AO DD OO01A PUSHL MB CROD 
01 DD 0001D PUSHL i 
000000006 EF 03 FB OOO1F CALLS #3, FIND_PROCESS_DATA 
69 50 £9 90026 BLBC RO, 4$ 
5a DD 000 PUSHL  SMQ_N 
66 01 FB 00028 CALLS #1, READ_RECORD 
85 0 D0 0002E OVL 0, SMQ 
5B DD 00031 PUSHL SJH_N 
66 or FB 00033 CALLS #1, ~READ_RECORD 
53 : 00 00 MOVL RO. S 
52 00FO C3 00 000 MOVL  240(SJH), SQR_N 
SE 11 0003E BRB 6% 
59 04 AC DO 00040 1$ MOVL gar R9 
24 AD OD O44 TSTL 6(R9) 
49 «1 0 47 BEQL 6 4$ 
2c «6 a9 s5 00049 TSTL  44(R9) 
44 13 0004C BEQL 4$ 
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rom 


uu 
oo 
o 


TQ $GETQ i 
thet ETQUI service 


30 Ad D 4 TSTL 48 (R9) 
3F BEQL 
5A 24 «AD OD 36(R9), SMQ_N 
5A DD PUSHL a 
: gi é 9 CALLS #1, READ_RECORD 
0 pO 0005¢ MOVE §— RO, 
a 2c OAD OD SF MOVL  44(R9), SJH_N 
5B DD 63 PUSHL a 
$6 gi FB 06 CALLS #1, READ_RECORD 
0 DO 00068 MOVE = RO, 
01 30 Ad 01 00068 CMPL = 48 (R9),_ #1 
07 if O06 BNEQ 
52 00F4 C3 00 00071 MOVL 44(SJH), SQR_N 
16 11 00076 BRB 
30 AY DD 00078 28 PUSHL  48(R9) 
66 gi FB 00078 CALLS #1, READ_RECORD 
54 0 DO 0007E MOVL RO, SQ 
52 64 D0 00081 MOVL (SQR), SQR_N 
30 AI DD 00084 PUSHL 48(R 
000000006 EF 01 FB 00087 CALLS #1, RELEASE_RECORD 
38 D5 OOO8E 38 ISTE SORN 
08 12 90099 BNEQ $ 
50 00048170 8F 00 00092 48: MOVL #295280, RO 
04 00099 RET 
30 Ad 52 DO O009A 5$: MOV SQR_N, 48(R9) 
52 DD OO09E 6$: PUSHL s 
66 gi +B 0009 CALLS #1, READ_RECORD 
54 0 DO 000A3 MOVL ; SOR 
14 BB O00A6 PUSHR #*M<R2,R4> 
53 DD OO0A8 PUSHL  SJH 
0820 8F BB OOOAA PUSHR #*M<R5,R11> 
0408 8F BB OOOAE PUSHR #oMcRS, R10> 
55 DD 000B2 PUSHL 
000000006 EF 02 FB 000B4 CALLS i, CHECK_R_ACCESS 
50 DD 00088 PUSHL RO 
FEF6 CF 9F O00BD PUSHAB P.AAB 
04 AC DD 000C1 PUSHL 60 
F923 CF 09 FB 000C4 CALLS #9, RETURN_RESULT 
04 000C9 RET 
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fF 11 
service 16-Sep-1984 00:05:34 AX-11 Bliss-32 V4.0-74 
aaa 1 99:93:34 WBBCTLe SREIGE FONT 63003 
ROUTINE QUI_DISPLAY_FORM(GQC)= 


14 


FUNCTIONAL DESCRIPTION: 
This routine processes the QUIS_DISPLAY_FORM request. 


INPUT PARAMETERS: 
GQc - Pointer to $GETQUI context block. 


IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


Completion status to be returned to requestor. 
SIDE EFFECTS: 
NONE 


3} 
cere REF BBLOCK; ! Pointer to $GETQUI context block 
SFM_N, ! Record number of SFM 
: REF BBLOCK; ! Pointer to SFM 
LITERAL 
SFM= K_REC_1; 


FIND_SELECTED; 


Ensure that either a search name or number was specified. 


iF NOT .ITEM_PRESENTCQUIS$. SEARCH NAME] 
AND NOT’ .ITEM_PRESENTCQUIS_SEARCA_NUMBER 


N 
RETURN JBC$_MISREQPAR; 


! Set the form wildcard bit. 
GOCCGOC_SFX_WILDJ = WILD_SEARCH_NAME(); 


: If this is the first call, advance to the first form index record. 
if .GQCCGQC_SFX_NJ EQL SQHS$K_RECNO 
THEN 

BEGIN 


SGETQUI service 1$-bep-1984 00:03:34 AX-1 legeze Wi 83505 


1 Bl 
JOBCTL.SRCIGETQUI .B32 
3 
: 


LOCAL 
SQH: REF BBLOCK; ! Pointer to SQH 


SQH = READ_RECORD(SQHS$K RECNO) 5 
GOC{GOC_SFR_N] = ,SQHCSOHSL_FORM INDEX LISTI; 
GOCEGQC"SFE-NJ = S$BYTEOFFSET(SYMST_DATA) = SFXSS_SFX; 
RELEASE RECORD (SQH$K_RECNO) ; 


SEES 


FIND_SELECTED: BEGIN 


Loop over form index records. 
WHILE TRUE DO 
BEGIN 


LOCAL 
SFX_N, ' Record number of SFX 
SFX: REF BBLOCK, ' Pointer to SFX 
SFE: REF BBLOCK; ! Pointer to SFX entry 


} No more records -- return failure. 
if .GQCCGQC_SFX_NJ EQL 0 
THEN 


BEGIN 
GOCCGQC_SFX_WILD) = FALSE; 
ac TURN JBC$_NOSUCHF ORM; 


Read the form index record. 
SFX = READ_RECORD(SFX_N = .GQCCGQC_SFX_NJ); 


— a tb a = a = bs is as ab 2 ss = a a ts a as as a a _s 


DWOOOOO OOH 090000009 09 09 09 09 SI NINN NINN NS NS INIA AA AAAAAAA IIIT 


Loop over form entries. 
WHILE TRUE DO 
BEGIN 


Advance to next entry, and ensure that it is valid. 


IF TESTBITCC(GQCCGQC_SFX_NO Any?) 
THEN GQCCGQC sre N) = .GQCCGQC_SFE_N) + 

IF .GQCCGQC_SFE_R} GEQU SBYTEOFFSET(SYMST_DA 
THEN EXTTLOOP: 


SFE = .SFX + .GQCEGOC_SFE_NI; 
IF CHSRCHAR(SFECSFXS$T-NAME]) EQL 0 THEN EXITLOOP; 


WN =O 0B NOA UNE WIN 0 OONAUE WN (OOS NOUS ("OO ONOU EWN" OOOnNO 


X$S_SFX: 
) #7SFX$S_SFX ®* SFXSK_ENTRIES 


! Match this entry with the selector -- both the name and number 
must match. 


if 
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} Advance to next form index record. 


GOCtGac_sFXx_N] = .SFXCSYMSL_LINK); 
GOCCGOC"SFE-N) = SBYTEOFFSET(SYMST_DATA) - SFXSS_SFX; 
RELEASE RECORD(.SFX_N); 


END; ! of block FIND_SELECTED 


173 19 BEGIN 
174 19 IF _.ITEM_PRESENTCQUI$_SEARCH_NAME] 
126 g FMGSMATCH_NAME ( 
17 CHSRCRAR(SFECSFXST_NAME]), 
178 0 SFECSFX$T_NAME] + 
179 0 . VALUE _SEARCH_NAMECSDSC_W_LENGTH) 
180 9 ae . VALUE ~SEARCH_NAMELSDSC_A~POINTERS) 
186 0 TRUE 
18 0 END 
184 0 AND 
185 BEGIN 
186 IF .ITEM_PRESENTCQUI$S_SEARCH_NUMBER] 
188 .VALUE_SEARCH_NUMBER EQL .SFECSFX$L_NUMBER] 
189 ELSE 
190 TRUE 
191 END 
19¢ N 
19 BEGIN 
194 2 SFM = READ_RECORD(SFM_N = .SFECSFXS$L_FORM_LINK]); 
195 : LEAVE FIND-SELECTED; 
196 END; 
197 é END; 
198 2 
199 2 
200 2 
$03 é 
$08 2 
04 2 
$06 : 
207 2 
208 2 
209 2 
2 2 
3 2 
2 
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2 
338 
u Return information about the selected form. 
18 RETURN. RESULT ( 
14 2 GoC 
215 P 32 GENERATE _TABLE ( 
316 P 3 QUIS"FORM_DESCRIPTION, 
1 P K"SFM, K_COPY_ASCIC, FALSE, SBYTEOFFSET(SFMST_DESCRIPTION), 0, 
3218 P 34 QUIS_FORMFLAGS, 
19 P 324 K"SFM, ‘K_FORM_FLAGS, FALSE, 0, 0, 
320 P 34 QUIS_FORM~LENGTH, 
1 P 324 K- K_COPY_VALUE, FALSE, SBYTEOFFSET(SFMSB_LENGTH), 1, 
322 P 324 QUIS_FORM~MARGIN BOTTOR, 
P 324 K"SFM, R_COPY_VALUE, FALSE, SBYTEOFFSET(SFMSB_MARGIN_BOTTOM) , 1, 
334 P 324 QUIS_FORM~MARGIN LEFT, 
5 P 325 K"SFM, R_COPY_VALUE, FALSE, S$BYTEOFFSET(SFMSW_MARGIN_LEFT), 2, 
326 P 325 QUIS_FORMMARGIN RIGHT; 
P 325 K"SFM, R_COPY_VALUE, FALSE, SBYTEOFFSET(SFMSW_MARGIN_RIGHT), 2, 
328 P 325 QUIS_FORM~MARGIN. TOP 
9 P 325 KISFM, R_COPY_VALUE, FALSE, $BYTEOFFSET(SFMS$B_MARGIN_TOP), t, 
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Va. O55t5 
JOBCTL.SRCJGETQUI .B32; 


; 0 P 5 QUIS_FORM_NAME, | ; 
5 2231 P 6 K"SFM k _COPY_ASCIC, FALSE, SBYTEOFFSET(SFMST_NAME), 0, ; 
; j Pp QUI$_FORMNUMBER | 3 
: P : “SFM, K COPY VALUE, FALSE, S$BYTEOFFSET(SFMSL_NUMBER), 4, : 
; P 305 QUIS_FORM SETUP AODUL ; 
3 2235 P 3260 K COPY “VARIABLE, TRUE, SBYTEOFFSET(SFMST_FORM_SETUP_MODULES), SFMSS_FORM_S| ; 
; P 3261 QuIs_FORNTSTOEK, | ; 
; P 6¢ K"SFM, K_COPY_ASCIC, FALSE, SBYTEOFFSET(SFMST_STOCK), 0, : 
; 8 P 326 QUI$_FORM “with, ; 
: 2239 P 3264 K7SFM, copy VALUE, FALSE, SBYTEOFFSET(SFMSW_WIDTH), ,. : 
: 2240 P 3265 QuI$_ PAGE. “SETUP _RODU ; 
$ 23 66 TRUE, K_SFM, “K “COPY “VARIABLE, TRUE, SBYTEOFFSET(SFMST_PAGE_SETUP_MODULES), SFMS$S_PAGE -5| : 
8 38 68 -SFM_N, .SFM) é 
> 2264 69 1 END; ; 
00C5B -BLKB 1 3 

00 00 05 18 OOC5C P.AAC: ‘BYTE 24, 5, 0, 0 ; : 

0000 0010 99¢60 WORD 16. 0 : ; 

00 OA 05 19 00C64 “BYTE 25, 5, 10, 0 : : 

0000 0000 00C68 “WORD 0, 0 : : 

00 05 OS 1A O00C6C “BYTE eb 5, 5, 0 : ; 

0001 015A 0070 "WORD 346, 1 : ; 

00 05 OS 1B 00C74 “BYTE Hy 5, 5, 0 : : 

0001 0158 00C¢78 “WORD 347, 1 : ; 

00 05 OS 1c ooc7c “BYTE 28 5, 5, 0 : ; 

0002 0154 00C80 "WORD 346, 3 : : 

00 05 05 1D 00C84 “BYTE 29,5, 5, 0 : : 

0002 0156 00C88 "WORD 343, 3 : ; 

00 05 05 i& O0C8&>C “BYTE 30, 5, 5, 0 : ; 

0001 015C 00C90 “WORD 348, { : : 

00 00 0S 1F 00694 “BYTE 31, 5, 0, 0 : : 

0000 0110 00C98 "worRdD 273, 6 : : 

00 05 05 @0 0C9C “BYTE 32, 5, 5, 0 : F 

0004 0130 OOCAO [woRD 304, : ; 

01 06 05 eI OOCA4 "BYTE 33,5, 6, 1 : : 

0006 015D OOCA8 “WORD 349, 6 Ses 

00 00 05 ¢2 OCAC "BYTE 34, 5, 0, 0 : : 

0000 0134 00CBO "WORD 306, 6 : F 

00 05 05 23 00CB4 “BYTE 5, 5, 0 : ; 

0002 0158 00C¢B8 “WORD 344, 2 : ; 

01 06 05 ? ocec "BYTE 57, 5, 6, 1 : ; 

006 0163 00CC *woRD 355, 6 : ; 

00 00CC4 "BYTE 0 : ; 

OFFC 00000 QUI_DISPLAY_FORM: : 

wo 3 ave R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 > 3084 ; 

5E 08 C 9002 SUBL2 : ; 

10 00000000" €F 5 E 09 BBS : » TEM. PRESENT+9, 1$ > 3125 ; 

08 00000000' EF 6 £0 000 a BBS ng 1 ER_PR PRESENT+9. 1$ > 3126 ; 

0 00048108  8F BO 000 MOVL #29517 : 3128 ; 

56 04 Ac dO i 1$: MOVL  GQC, R6 : 3133 ; 
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: re] f } ROUTINE QUI_DISPLAY_JOB(GQC)= 

: 226 72 1 S44 

3; 226 em 2 

; 0 74 1 =! FUNCTIONAL DESCRIPTION: 

3 1 fe : } This routine processes the QUIS_DISPLAY_JOB request. 

3 : 77 1°! INPUT PARAMETERS: 

3 ¢ f : } Gac - Pointer to $GETQUI context block. 

3 § O 1! IMPLICIT INPUTS: 

; 2 1 } MBX - Pointer to buffered mailbox message. 
3; 2259 88 1 ! OUTPUT PARAMETERS: 

3; 2260 8 1! NONE 

3; 2261 3? 1! 

3 6¢ $ 1 ! IMPLICIT OUTPUTS: 

: 226 87 1! NONE 

3: 2264 88 1! 

3 $0? 89 1 ! ROUTINE VALUE: 

3; 2266 90 1! Completion status to be returned to requestor. 

3: 2267 $31 1! 

; 2268 9 1 ! SIDE EFFECTS: 

3 44 93 1! NONE 

3 0 9% #1! 

3: 2e71 95 1 !e= 

3 Le: 296 (1 

: 227 297 BEGIN 

3; 2276 298 B 

3; 2275 344 GQc: REF BBLOCK; ' Pointer to $GETQUI context block 
3 ss76 00 LOCAL 

; 2277 301 SMQ_N, ! Record number of SMQ 
: 2278 308 SmQ REF BBLOCK, ' Pointer to 

: tad 3 SJH_N, ' Record number of SJH 
; 2280 04 REF BBLOCK; ' Pointer to SJH 

: 2281 305 LITERAL 

; 3282 306 _SMQ= K_REC_1, 

: 228 307 K_SJH= K_REC_2; 

§ sae 308 

3; 2285 309 ; : . 
3: 2286 310 ! If the wildcard bit is clear, this request returns information about the 
: ser 33 current batch job. 

3 2289 13 IF NOT .VALUE_SEARCH_FLAGSCQUI$V_SEARCH_WILDCARD] 

3; 2290 14 THE 

3: 2291 15 BEGIN 

: 4 16 : 

3 4 4 Locate the data for this job. 

s 95 i8 IF NOT FIND_PROCESS DATA( 

3 2296 0 PDE_K_BATCH, .MBXCACM$._PID], FALSE; 

: 2297 1 . SMQ"N, SJH_N) 

3; 2298 § HEN 
3 2299 RETURN JBC$_NOSUCHJOB; 

380 ; 

; 2302 6 SMQ = READ_RECORD(.SMQ_N); 
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3 5 = READ_RECORD(.SJH_N); 
5 ELSE 

BEGIN 
8 


4 if no queue context has been established or we have reached the end of the 
ob list, return an error. 


if .GQCCGQC_SMQ_NJ EQL 0 
OR .GOCEGQC“SJH"0] EAL GOC_K_DONE 


N 
RETURN JBC$_NOSUCHJOB; 
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' Read the queve record, establish the next job record to be returned, 


: 2309 

3 10 

3 1} 

: i 

$ 14 

: 15 

3; 2316 4 

; 17 4 

; 18 re rand read the job record. 

; 20 4 SMQ = READ_RECORD(SMQ_N = .GQCCGQC_SMQ_N)); 

; 3 : 3 ouice TRUE dO 

: $356 a \ 

3 336 348 4 IF .GQCCGQC_SJH_N] EQL 0 

3; 2325 334 4 THEN 

3 359 350 5 bein 

: 2327 351 5 GQCCGQC_SJH_Q) = .GQCCGQC_SJH_Q] + 1; 

; 2328 352 5 CASE .GOCCGOC_SJH_Q]) FROM™GQC_K_CURRENT TO GQC_K_HOLD OF 
3 4 353 5 SET 

; 2330 354 5 

3: 2331 355 5 

3 $36 356 5 COUTRANGE): 

3; 233 357 6 

3: 2334 3358 6 RETURN JBC$_NOSUCHJOB; 

: 2335 359 5 END; 

: 2336 M4 5 

3 tH o 6S 

3; 2338 $306 5 €GQC_K_CURRENT]: 

3; 2339 363 6 N 

; 2340 3364 6 GQCCGQC_SJH_N] = .SMQCSMQS$L_CURRENT_LIST); 
3; 2341 3365 5 END; 

3 <0¢ 366 «5 

3: 234 367 2 

3 2344 368 CGQC_K_PENDING): 

3 2345 369 6 N 

3 346 370 6 IF .SMQCSMQ$W_PENDING_JOB_COUNT] NEQ 0 
3: 234 71 6 THEN 

3: 2348 He 7 BEGIN 

3: 2349 373 7 LOCAL 

3; 2350 374 7 SQH: REF BBLOCK; 

3: 2351 32 7 

3 $26 8 7 SQH = READ_RECORD(SQHS$K_RECNO); 

3; 235 37 7 IF .SMQCSMOS$V_BATCH) 

3 2354 378 7 THEN GQCCGQC_SJH_N] = .SQH SOHSL PENDING BATCH LIST) 
3 2355 379 7 ELSE GQCCGQC"SJH-N) = .SQHLSQHS$L_-PENDING_PRINT_LISTJ; 
3 $29 tt 7 RELEASE _RECORD(SGHS$K_RECNO) ; 

3: 235 ; 1 END; 

3 38 5 END; 

: 5 3 
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5 4 H 
3 1 5 CGQC_K_TIMER): | 
; ¢ $ 6 BEGIN 
; ; 6 GOCCGQC_INTERVENING_BLOCKS) = 0; 
; 8 6 GOCEGOC INTERVENING-JOBS] = 0; | 
3 2365 89 6 IF .SMOCSMQ$W_TIMER-JOB_COUNT) NEQ 0 | 
: 90 8 THEN | 
: 91 BEGIN 
3 2368 % 7 LOCAL 
i 3369 93 7 SQH: REF BBLOCK; | 
: 2371 95 7 SQH_= READ_RECORD(SQH$K_RECNO); 
; re 9% 7 GOCCGAC_SJA A = SONESONSL TIMER_LIST: 
3 237 97 7 RELEASE _RECORD(SQH$K_RECNO); 
: 2374 98 6 ; 
: 2375 399 5 END; 
He HG | 
; 376 40¢ (GQC_K_HOLD]: 
3 2379 403 6 
; 2380 3404 : GOCCGQC_SJH_NJ = .SMQCSMQ$L_HOLD_LIST); 
3; 2381 405 END; 
3 Sane 406 5 
; 238 407 5 
3 2384 408 5 TES; 
; 3385 409 5 END 
> 2386 410 4 ELSE 
3 2387 411 5 BEGIN 
> 2388 3412 5 IF .SJH_N EQL 0 THEN SJH = READ_RECORD(SJH_N = .GQCCGQC_SJH_NJ); 
: 2389 413 5 IF TESTBITCC(GQCLGQC_SJH_NO_ADV7) | 
; 2390 414 5 THEN GQCCGQC_SJH"N) = .SJHCSYMSL_LINKJ; 
; 391 415 5 RELEASE_RECORD(.SJH_A); | 
; 332 3416 4 END; 
: 3338 a | 
> 2395 419 4 IF .GQCCGQC_SJH_NJ NEQ 0 
$ See 420 4 N 
; 2397 421 5 BEGIN 
; 2398 4 é 5 SJH_= READ_RECORD(SJH_N = .GQCCGQC_SJH_NJ); 
; 2399 34 3 GQCCGQC_SQR_NJ = SQHS$R_RECNO; 
> 2400 34 4 IF 
: 2401 425 6 BEGIN 
; 40¢ 426 7 IF ONEOF_(.GQCCGQC_SJH_Q], BMSK_(GQC_K_PENDING, GQC_K_TIMER)) | 
: 403 4 f 6 AND .SJHTSJH$L_QUEDE_LINKS NEQ 7SMQ_f | 
RG 8 pe | 
: 26407 431 6 ELSE IF NOT .VALUE_SEARCH_FLAGSCQUISV_SEARCH_ALL_ JOBS) | 
> 2408 43¢ a AND CHSNEQ(12, SJHCSJHS$T_OSERNAME], 12, MBXCACMST_USERNAME ]) | 
> 2409 43 6 THEN 
: 24610 434 BEGIN 
+ 2611 435 7 IF .GQCCGQC_SJH_Q] EQL GQC_K_PENDING 
: ag 436 7 THEN 
> 261 43 BEGIN | 
> 2614 438 GOC GOC_ INTERVENING 408s) = .GOCCGQC_INTERVENING_JOBS) + 1; | 
> 2415 439 IF NOT ~SMQ Snag BATCH 
> 2416 440 THEN GQCCGQC_INTERVENING BLOCKS] = .GQCC(GQC_INTERVENING_BLOCKS) * .SJHCSJHS$L_JOB | 


| 
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SGETQUI service 18. -Sep-1984 AX-11 Bliss-32 V4.0-74 Page 76 | 
1 ia-Sep- 198 99: 93: 3 NOBCTL SREIGETOUL B3e03 9°47) 
7 44) 7 END | H 
4 8 tt§ 7 FALSE ; 
4 4435 7 END : 
420 444 7 $ 
421 445 6 ELSE ; 
4 é 44g é TRUE ; 
4 44 END ; 
424 448 THEN ; 
425 449 EXITLOOP; | ; 
426 450 4 D; ; 
2427 451 END; ; 
428 12g END; ; 
429 45 3 
430 454 : 
$e 1 +2? ; Return information about the selected job. ‘ 
stag 439 RETURN_RESULT( ; 
2434 3458 ; 
2435 P 3459 GENERATE _TABLE ( ; 
2436 P 3460 QuI$s= “ACCOUNT NAME , ; 
243 P 3461 2 SJA, K.COPY_TRIMMED, TRUE, $BYTEOFFSET(SJHST_ACCOUNT), SJH$S_ACCOUN ‘ 
P 46¢ 2 Quis _AFTER® TIME, : 
P 346 : K_SJH, K_COPY_VALUE, FALSE, S$BYTEOFFSET(SJH$Q_AFTER_TIME), SJH$S_AFTER_ ; 
P 3464 Quis_ CHARACTERISTICS ; 
P 3465 2 K_SJH, L CObY _VALUE, TRUE, S$BYTEOFFSET(SJHST_CHARACTERISTICS), SJH$S_CHARAC | ; 
P 3466 2 QuIs_ CHECRPOINT DATA, ; 
P 3467 2 K_COPY_VARIABLE, TRUE, $BYTEOFFSET(SJHST_CHECKPOINT), SJH$S_CHECKP ; 
P 3468 2 Quis cll : 
P 3469 2 SJH, K_COPY_ASCIC, TRUE,  S$BYTEOFFSET(SJH$T_CLI), 0, : 
P 3470 2 Quis_ cOMPCETES_8 LOCKS ; 
Pp 3471 2 K_SJH COMPLETED _BLOCKS, FALSE, 0, 0, : 
P 3478 2 Qui$_ CONDITION, vEtTO : 
Pp 3473 2 K_SJH K COPY _VALUE, TRUE, SBYTEOFFSET(SJHSL_CONDITION_1), SJH$S_CONDIT : 
P 3474 2 auis_cPuSCIMif, ; 
P 3475 2 SJH, k _COPY_VALUE, TRUE, $BYTEOFFSET(SJHSL_CPU_MAXIMUM) , 4, : 
P 3476 3 QUI$_ENTRY_NUMBER : 
P 3477 K_SJH, K.COPY_VALUE, FALSE, SBYTEOFFSET(SYMSL_ENTRY_NUMBER) , 4, : 
P 3478 2 Quis FORM “NAME , ; 
Pp 3479 2 K~SJH COPY_FORM_NAME, TRUE, $BYTEOFFSET(SJHSL_FORM_LINK), 0, | : 
P 3480 QUIS_INT ERVENING. BLOCKS, 
P 3481 R INTERVENING, BLOCKS, FALSE, 0, 0, 
P 48¢ Quis_ INTERVENING, Jos 
P 348 WIN INTERVENING JOBS, FALSE, 0, 0, | 
P 484 ; QUI$_JOB Otopies. 
P 3485 SJH. K COPY _VALUE, TRUE,  S$BYTEOFFSET(SJH$SB_JOB_COPIES), 1, 
P 3486 QUI$_JOB COPIES. CAKP 
P 3487 SJH -; wort _VALUE, TRUE,  $BYTEOFFSET(SJH$B_JOB_COPIES_CHKPT), 1, | 
P 3488 QuI$_JOB rOPies.p | 
P 3489 “K Oy _VALUE, TRUE, S$BYTEOFFSET(SJH$B_JOB_COPIES_DONE), .. | 
P 3490 QUI$_J0B FLAG Gs. | 
P 3491 K_JOB_FLAGS, TRUE, 0, 0, | 
P 349 Qu1$_JOB RARE | 
p 349 SJH, K_COPY_ASCIC, TRUE, $BYTEOFFSET(SJHST_NAME), 0, 
P 3494 QUI$_J0B SIZE. 
P 3495 JH, K_COPY_VALUE, FALSE, S$BYTEOFFSET(SJH$L_JOB_SIZE), 4, 
P 349 QuI$_JOB STATUS, 
pP 349 R_SJH, K_JOB_STATUS, FALSE, 0, 0, | 
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3 P 3498 QUIS_LOG_ QUEUE, 3 
: 2675 P 3499 SJH copy QUEUE _NAME, TRUE, S$BYTEOFFSET(SJH$L_LOG_QUEUE_LINK), 0, : 
: 267 P 200 QUI$_LOG SPE CIF ICRYIO | : 
; are Pp sop outs pores “SJH, K-COPY * VARIABLE, TRUE,  S$BYTEOFFSET(SJHST_LOG_SPECIFICATION), | SJH$S_LOG_SP. : 
: 2479 P 350 K’SJH, k COPY VARIABLE, TRUE, S$BYTEOFFSET(SJHST_NOTE), SJH$S_NOTE, | : 
: 2480 P 3504 Quis LOPERRTOR “REQUES ‘@ . | : 
: 2481 P 3505 JH? XCOPY VARIABLE, TRUE,  SBYTEOFFSET(SJHST_OPERATOR_REQUEST), | SJHSS_OPERAT | ; 
3: 248 be 206 Quis PRIORITY: F 
: 2468 P 350 JH, K_COPY_VALUE, TRUE,  S$BYTEOFFSET(SJHSB_PRIORITY), ‘, ; 
> 2484 P 3508 Quis QUEUE es | ; 
: 2685 P 209 K_SJH COPY_QUEUE_NAME , TRUE,  S$BYTEOFFSET(SJHSL_QUEUE_LINK), 0, | : 
> 2486 Pp 3510 QUIS_REFUSAL REASON ; 
3 2487 P 3511 K SJ k COPY VARIABLE, TRUE, S$BYTEOFFSET(SJH$T_REFUSAL_REASON), SJH$S_REFUSA | : 
+ 2488 P 331g Quis_ REQUEUE priori ; 
3 2489 P 351 K_SJ cont VALUE, TRUE, SBYTEOFFSET(SJHSB_REQUEUE_PRIORITY), 1, | : 
> 2690 P 3514 Quis. REQUELE jOUEUE,N ; 
: 2491 P 3515 SJA ME eOPY QUEUE _NAME, TRUE,  S$BYTEOFFSET(SJHS$L_REQUEUE_QUEUE_LINK), 0, : 
> 269 P 3516 Quis_ SUBMISSION. TIME ; 
; 3493 P 17 2 ia “yiew™ JH, “K “COPY _VALUE, TRUE, S$BYTEOFFSET(SJHSQ_TIME), SJHSS_TIME, ; 
: 2695 P 3319 § K_SJH, K_COPY_VALUE, TRUE, SBYTEOFFSET(SJHSL_UIC), 4, 3 
3: 2496 pP sf 2 Quis _USERRAME, 3 
: 2497 P 35 1 K_SJH, K_COPY_TRIMMED, TRUE, SBYTEOFFSET(SJHST_USERNAME) , SJH$S_USERNA ; 
> 2498 p 35 : QUI$_WSDEFAULT, ; 
: 2499 p 35 K_SJH, K_COPY_VALUE, TRUE, $BYTEOFFSET(SJH$W_WSDEF AULT), 2 : 
3 seov P 3524 2 QUIS_WSEXTENT, F 
: 2501 P 3525 : K_SJH, K_COPY_VALUE, TRUE, SBYTEOFFSET(SJHSW_WSEXTENT), 2, ; 
3 $206 P 3526 QUIS_WSQUBTA, 3 
: 250 3527 2 SJH, K ~£OPY _VALUE, TRUE,  SBYTEOFFSET(SJHSW_WSQUOTA), 2), : 
: 2504 3528 § CHECK_R_ACCESS(. SMQ, =SJH 3 
: 2505 3529 .SMQ_N,~.SMQ, .SJH_N, .S SINS : ; 
; 2506 3530 1 END; ; 
: 

00D¢6 .BLKB 2 ; 

01 04 07 01 OODC8 P.AAD: <BYTE 1, 7, 4, 1 ; ; 

0008 0014 O0DCC “word 26, & : | : 

00 05 07 02 O00DD0 “BYTE 2, 7, 5, 0 : : 

0008 0098 O00DD4 "wORD 152,°8 : | : 

01 05 07 07 O0DD8 "BYTE 7, 7, 5, 1 : ; 

9010, 0049 OODDC “WORD 160, 16 : ; 

01 060 08 ODEO “BYTE : F $. 1 : | : 

920, Or DE4 “WORD 384, °3 : : 

01 6 09 O0DE8 “BYTE 9, 7, 0, 1 : : 

000 70080 OODEC “WORD 176, 0 ; : 

00 07 07 OA OODFO ‘BYTE 10,7, 7, 0 : : 

900 0000 O0DF4 “WORD 0, 0 : : 

01 07 0B OODF8 sBYTE «Vda Toe 1 : : 

goc OODC O0DFC *woRD 2206, {2 : ; 

01 07 0 DEO sOYTE - tua Be Ba 3 : | : 

Q04 00 0E04 “WORD : é, 4 : ; 

00 07 OF OE08 “BYTE a : : 

004 0008 O0E ¢ “WORD 4 : : 

01 01 07 0€1 “BYTE re me : : 

000 OOFC 00E14 “WORD 252, 6 : : 
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#1, READ_RECORD 

RO, SJH 


#7. BIRO), 13$ 
(SJH), (RO) 


N 
#4) RELEASE RECORD 


) 


‘ SJH_N 
READ_RECORD 
SJH 

48(R9) 

R9), #805306368, RO 
(SUH), SMQ_N 
UE_SEARCH_FLAGS, 18$ 
* 328(SJH), 16(RO) 
R9), #2 
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ROUTINE QUI_DISPLAY_QUEUE(GQC)= 


nn 


'e¢ 
' 


i FUNCTIONAL DESCRIPTION: 
This routine processes the QUIS_DISPLAY_QUEUE request. 


INPUT PARAMETERS: 
Gac - Pointer to $GETQUI context block. 
| 
| 


IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


OUTPUT PARAMETERS: 
NONE 


eel aa aaidnaneamnpanen 


3 2 : 
; § 1 ¢ 
3 1 ; 
3 4 4 3 
; ae | 
3 ; 5 $ ! ; 
3 2 § 1 3 
§ 2 540 1 : 
: $5 at) | | 
3 2 228 1 | 3 
; 25 544 1 5 
> 25 545 1 : 
; 25 2¢6 1 : 
; 25 54 1 IMPLICIT OUTPUTS: $ 
: 25 548 1 NONE F 
: 25 $208 1 3 
; 25 550 1 ! ROUTINE VALUE: ; 
: 3 $22) : Completion status to be returned to requestor. : 
; 25 3358 | i sive errects: | : 
3; 25 555 1 | 3 
3; 25 556 1 !-- ; 
; 25 oor 6 F 
3; 25 3558 BEGIN 3 
; $2 $227 MAP 3 
3; 2537 560 REF BBLOCK; ! Pointer to $GETQUI context block 3 
3 s2e6 $20) LOCAL § 
3; 2539 206 SMQ_N, ' Record number of SMQ 3 
; 2540 320 : REF BBLOCK; ' Pointer to SMQ : 
3 $20) 564 LITERAL 3 
; 246 3565 _SMQ= K_REC_1; : 
3: 254 3268 LABEL 5 
3 25446 567 FIND_SELECTED; . 
$308 a8 
3 2547 23 ! Jf the search name is omitted, this request returns information about the : 
3 208 gf) } current batch job. : 
3 2550 378 IF NOT .ITEM_PRESENTCQUI$S_SEARCH_NAME J : 
: 2551 ee THEN 3 
3 226 75 océie 3 
3 255 376 GOCCGQC_SQX_WILD) = FALSE; ; 
: $e aa 
: 228 579 ' Locate the data for this job. é 
3; 255 580 ! : 
: 2558 23! IF NOT FIND_PROCESS DATA( : 
: 2559 5 é PDE_K_BATCH, .MBXCACMSL_PIDJ, FALSE; ; 
; 2560 58 - SMQ"N) : 
; 2561 of TH 3 
; 36¢ 585 _ RETURN JBC$_NOSUCHQUE ; ; 
3; 256 286 3 
3 2564 58 5 
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; 65 8 SMQ = READ_RECORD(.SMQ_N); ° 

3 28 9 END ; 

; 90 ELSE . 

; 2568 91 BEGIN 3 

i; $969 3 | : 

3 4 37 Set the queue wildcard bit. : 

3 ¢57@ 238 GOCCGOQC_SQX_WILD] = WILD_SEARCH_NAME(); | ; 

ai i ee 

P / | © 

3 $316 238 } If this is the first call, advance to the first queue index record. ; 

: $278 600 iF .GQCCGOQC_SQx_N] EQL SQH$K_RECNO | : 
'; 2578 601 THEN 3 

; 2579 o0¢ 4 BEGIN ; 

; 2580 603 4 LOCAL 3 

: 2581 604 4 SQH REF BBLOCK; ! Pointer to SQH | 

$ A 606 4 SQH = READ_RECORD(SQH$K_RECNO); é 

> 2584 607 4 GOCCGQC_SQR_NJ = .SQH{SOHS$L_QUEUE_INDEX_LISTI; : 

; 2585 608 4 GOCCGQC-SQE-N) = SBYTEOFFSET(SYMST_DATAY - SQX$S_SQx; | ; 

: 2586 609 4 RELEASE_RECORD(SQH$K_RECNO) ; 3 

: 2587 610 END; g 

; 2588 ei] 3 

; 2589 at 3 

; 2590 61 4 FIND_SELECTED: BEGIN $ 

3; 2591 614 4 $ 

; 206 615 4 | 3 

3 $29 616 4 ! Loop over queue index records. | : 

3: 2594 617 4 ! 

3 $292 618 4 WHILE TRUE DO 

3; 2596 619 5 BEGIN 

3 2597 3620 5 LOCAL 

; 2598 3621 5 SQX_N, ' Record number of SQx 

; 2599 36 § 5 $Qx: REF BBLOCK, ' Pointer to SQX 

: 2600 6 5 SQE: REF BBLOCK; ' Pointer to SQX entry | 

3 soe) ose 5 

3 ope 625 5 

3; 260 626 5 ' No more records -- return failure. 

3; 2604 ost 5 ! 

; 2605 3628 5 if .GQCCGQC_SOX_NJ EQL 0 

: 3606 629 5 THEN | 

: 2607 630 6 BEGIN 

3 2608 631 6 GOC GOC_SQx_WILD] = FALSE; 

3; 2609 6 ; 6 GQCCGQC_SMQ_N) = 0; 

; 2610 633 6 RETURN JBC$~NOSUCHQUE ; 

3; 2611 634 5 END; 

3 Ole 635 5 

; 261 636 > | 

3 eis ats 5 Read the queue index record. 

3 2616 639 3 SQX = READ_RECORD(SQX_N = .GQCCGQC_SQX_N)); 

3; 2617 640 

3: 2618 641 

3: 2619 yeh ' Loop over queue entries. 

3; 2620 64 : 

3; 2621 644 5§ WHILE TRUE DO 
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: 26 3 645 6 BEGIN 

: 26 on8 6 

3 ¢ rok ? Advance to next entry, and ensure that it is valid. 

: 2626 649 6 if resTerrce ceacceac ~$9x =NO ody?) 

; 2627 $90 6 THEN GQCCGQ “AiG + SOx X$S_s 

3 2628 651 6 IF -Ga¢ CCGQC SCE fA EEN savveorrse Eres Fan _DATA) +7 soxés. SQX * SQXS$K_ENTRIES 

3; 2629 626 6 THEN om XITL 9 

: 2630 653 6 SQE = .SQXx actcac_s 1; 

; 6 1 638 6 IF CHSRCHAR (SALT SOXST NAMES) EQL 0 THEN EXITLOOP; 

3; 26 § O28 6 

; 26 65/7 6 ! Match this entry with the selector. 

; 2635 658 6 ! 

; 26 659 6 

3 2637 660 6 FMGSMATCH_NAME ( 

; 2638 661 6 CHSACRAR(SQECSOXST NAME]), 

3 2639 662 6 SQECSOQX + 7 

: 2640 3663 6 . VALUE XSTARCH * WARE Spsc “We LENGTH] 

> 2641 3664 6 . VALUE ~SEARCH_NAMELSDSC_A_POINTERS) 

: ak: 3665 6 

: 264 3666 7 BEGIN 

3 2644 3667 7 IF .ITEM_PRESENTCQUIS$_SEARCH_FLAGS) 

3 oF 668 7 THEN 

3 2646 669 7 IF NOT .VALUE_SEARCH_FLAGSCQUI$V_SEARCH BATCH] 
1; 2667 3670 7 AND NOT .VALUE_SEARCA_FLAGSCQUISV_SEARCA_SYMBIONTJ 

3 2648 671 7 THEN 

> 2649 ore 7 TRUE 

3; 2650 36735 7 

: 2651 3674 8 (. VALUE SEARCH FLAGSCQUI$V_SEARCH_BATCH] 

; 638 3675 7 AND”. SQECSOx$V_BATCH)) 

; 265 3676 8 - VALUE _SEARCH_FLAGSCQUI$V SEARCH SYRBIONTS 

3 2654 3677 8 AND-NOT .SGECSQXx$v_BATCH)) 

3 2655 3678 7 ELSE 

3 2656 679 7 TRUE 

3 2657 680 7 END 

; 2658 681 $ THEN 

3; 2659 368 BEGIN 

: 3660 683 7 GOCCGOC_SMO_N] = SMQ_N = .SQECSQXS$L_QUEUE_LINK]; 

; s061 684 7 GOCCGQC"SJH_Q) = GQC_K NON : 

: b6¢ 685 7 GOCCGQC’SJHN) = 0; 

3 266 3686 7 SMQ = READ_RECORD(.SMQ_N); 

3 2664 687 7 LEAVE FIND “SELECTED; 

: $58 a ew: 

3 ees 690 

3; 2668 691 é 

3 $4 $3 2 Advance to next queue index record. 

3 2671 3694 2 GactGac_sa SOx X_N] = .SQXCSYMSL_LINK] 

> 267 695 GoctG SBYTEOF FSET (SYMS4 _DATA) = SQx$S_SQX; 

; 5 RELEASE “RECORD (. san LN); 

3; 26 4 END; 

: d 

3 ; END; ! of block FIND_SELECTED 
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1 
| 

: 2679 7 : | ; 
; 2680 7 END; H 
; 2681 704 | : 
; 26 ¢ 705 3 
; vet f $ } Return information about the selected queue. | ; 
; 2685 18 RETURN_RESULT( ; 
; 26 709 .GOC ; 
3 26 P 3710 GENERATE. TABLE ( | ; 
; 2688 P 3711 QUIS_ASSIGNED_QUEUE_NAME, | ; 
; 2689 P ar K_ K_COPY_QUEUE_NAME, TRUE, S$BYTEOFFSET(SMQSL_ASSIGNED_QUEUE_LINK), 0, ; 
; 2690 P 371 QUIS_BASE-PRIORITY ; 
; 2691 p 3714 K-SMQ, K_COPY_VALUE, TRUE, $BYTEOFFSET(SMQ$SB_BASE_PRIORITY), +, ; 
: 269 P 3715 QUIS_CHARACTERISTICS ; 
: 269 P rig K_SMQ, K_COPY_VALUE, TRUE, S$BYTEOFFSET(SMGST_CHARACTERISTICS), SMQ$S_CHARAC : 
3 $696 P 371 QUIS_CPU_BEFAULT, ; 
: 2695 p 3718 S K_COPY_VALUE, TRUE, $BYTEOFFSET(SMQSL_CPU_DEF AULT), 4, ; 
; 3696 P 3719 auis_cpu_CImif, ; 
; 2697 P 3720 R-SMQ, K_COPY_VALUE, TRUE,  SBYTEOFFSET(SMQSL_CPU_MAXIMUM) , 4, ; 
: 2698 P 3721 QUIS_DEVITE_NAME, | ; 
; 2699 P 372¢ K_SMQ, K_COPY_ASCIC, TRUE,  $BYTEOFFSET(SMQST_DEVICE_NAME), 0, | ; 
> 2700 P 372 QUIS_FORM~NAME, ; 
; 2701 P 3724 K K_COPY_FORM_NAME, TRUE, SBYTEOFFSET(SMQSL_FORM_LINK), 0, ; 
> 270 P 725 QUIS_GENERIC_TARGET ; 
: 270 p 37 6 K_SMG, K_GENERIC_TARGET, TRUE, S$BYTEOFFSET(SMQSL_GENERIC_TARGET), 0, ; 
> 2704 P 2 auis_vos_CImif, ; 
: 2705 P 3728 SMQ, K_COPY_VALUE, TRUE,  $BYTEOFFSET(SMQ$SB_JOB_LIMIT), %, | ; 
; 2706 p 3729 QUI$_JOB_RESET_MOBULES? : 
: 2707 P 3730 SMG,~ K_COPY. VARIABLE, TRUE,  $BYTEOFFSET(SMQ$T_JOB_RESET_MODULES),  SMQ$S_JOB_RE ; 
> 2708 P 3731 : QUI$_JOB $1ZE_MAXIMUM, ; 
5 2709 Pp 37 ; SMO, K_COPY_VALUE, TRUE,  S$BYTEOFFSET(SMQSL_JOB_SIZE_MAXIMUM), 4, ; 
> 2710 P 3733 2 QUI$_JOB_SIZE_MINIMUM, : 
: 2711 P 3734 2 SMQ; K_COPY_VALUE, TRUE, S$BYTEOFFSET(SMQ$L_JOB_SIZE_MINIMUM), 4, ; 
; erie P 3735 : QUIS_LIBRARY_ SPECIFICATION ; 
; 271 P 3736 K_COPY_ASCIC, TRUE, S$BYTEOFFSET(SMQ$T_LIBRARY), 0, ; 
: Har Pp 3737 ‘ QUIS_OWNER_UIC, ; 
: 2715 P 3738 K_SMQ,  K_COPY_VALUE, TRUE,  SBYTEOFFSET(SMQSL_OWNER_UIC), 4, ; 
; 376 P 3739 QUI$_PROCESSOR, : 
: 2717 P 3740 K_SMQ,  K_COPY_ASCIC, TRUE, $BYTEOFFSET(SMQ$T_PROCESSOR), 0, | ; 
: 3718 P 3741 QUIS_PROTECTION, : 
: 2719 P 14 K_SMQ, K_COPY_VALUE, TRUE, $BYTEOFFSET(SMQ$W_PROTECTION), 2, ; 
; 3730 P 374 QUIS$_QUEUE FLAGS, F 
3 2721 P 3744 K_SmMQ, K_QUEUE_FLAGS, TRUE, 0, 0, | : 
; 138 P 3745 QUI$_QUEUE NAME, : 
: 37 P 374 K_SMQ, K_COPY_ASCIC, FALSE, $BYTEOFFSET(SMQ$T_NAME), 0. | : 
> 2726 P 374 QUIS_QUEUE STATUS; | : 
: 2725 P 3748 K_SMQ, K_QUEUE_STATUS, TRUE, 0, 0, | ; 
: 5756 P 3749 QUI$_SCSNODE_NAME7 | ; 
: 2727 P 3750 K_SMO, K_COPY_TRIMMED, TRUE,  S$BYTEOFFSET(SMQ$T_SYSID), SMQ$S_SYSID, | ; 
> 2728 P 3751 QUIS_WSDEFAULT, ; 
: 2729 P 138 K_SMQ,  K_COPY_VALUE, TRUE, SBYTEOFFSET(SMQSW_WSDEFAULT), S. ; 
s 2730 P 375 QUIS_WSEXTENT, ; 
: 2731 P 3754 SMQ, K_COPY_VALUE, TRUE,  SBYTEOFFSET(SMQSW_WSEXTENT), 2, 3 
: 732 P 135 QUIS$_WSQUOTA : 
: 27 7 6 K_SMG, K_COPY_VALUE, TRUE,  SBYTEOFFSET(SMQ$W_WSQUOTA), 2), ; 
: 2734 75 TRUE, 3 
: 2735 758 .SMQ/N, .SMQ) ; 
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MOVL 
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GOC, R6 

#5, prem PRESENT+9, 1$ 
#4; BRET 

-(§p) 


WILD SEARCH_NAME 
#2, Bi, 8(RB) 
6), R14 

as #1 


_—n~e 8 
— Oo 


SQX_N 
#., READ_RECORD 


75, 
4 
(R7), SQX, SQE 
(SQE5S 
12$ 
1(SQE), R3 


§ 
VALUE _SEARCH_NAME+2, R5 
VALUETSEARCH_NAME, 4 


R 
FMGSMATCH_NAME 


#4, ITEM_PRESENT+9, 108 

Ae VALUE_SEARCH_FLAGS, 8$ 
#3, VALUE-SEARCH_FLAGS, 10$ 
a3 VALUE-SEARCH_FLAGS, 9$ 


SQE), TOS 
#3, VALUE SEARCH_FLAGS, 6$ 
jel QE), 8S 
6(SQE). SMQ_N 
SMQ_N, $6(RO6T 
40(R65 
SMQ_N 
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; Routine Size: 304 bytes, Routine Base: 


9 Fe ar 
Dd 1 
+3 11 108 
00 BE dO 814 12$: 
uf CE 0010E 
58 0D 00111 
01 FB 00113 
FF49 31 QOTIA 
04 AE DD 0011D 138: 
5A DD 00120 
01 00 00122 
FEIF gf oF bat 4 
6 0D 00128 
05 FB Basa 
04 0012F 
CODE + 10D5 


M12 
1er$ep-198e 29:93:26 © Eodact esaeSce taut -o3e; 
Dd 


CALLS #1, READ_RECORD 
MOV RO, SMQ 


1 

MOVL asox, (R11) 

MNEGL #28, (R7) 

PUSHL  SQX_N 

CALLS #1, RELEASE_RECORD 
BRW 3$ 

PUSHL  SMQ 

PUSHL  SMQ_N 

PUSHL # 

PUSHAB P.AAE 

PUSHL 

CALLS #5, RETURN_RESULT 


BeBe Se Se Fe Se Se Se Se Ge Ge Se Be Be Se 


1%. 2 
TQ S$GETQUI service ep-1984 4 AX=-11 Bliss-32 V4.0-7 Page 88 
vteeint £73007 138 99: 93: 3 JOBCTL.SR ReIGE TOUT 11B3os . Rt); 
: 27 760 1 ROUTINE QUI_RESERVED_FUNC_1= ; 
3 738 761 1 “i ~ : 
: 2740 16¢ 1 +4 : 
3 2761 763 1 ; 
: tag 764 1 ! FUNCTIONAL DESCRIPTION: ; 
3 ok 4 : his routine processes the QUIS_RESERVED_FUNC_1 request. : 
3; 2745 767 1 =! INPUT PARAMETERS: 3 
: 276 768 1: NONE | : 
3; 274 7 1! 3 
: 2748 770 1! IMPLICIT INPUTS: : 
> 2749 771 1: NONE | : 
: 2750 ae 1 i 
: 131 773 1 | OUTPUT PARAMETERS: 
: 27 ; 77%, 1! NONE 
: 275 775 13 
: 2754 776 1) IMPLICIT OUTPUTS: | 
: 2755 777, 13 NONE 
3: 2756 3778 1! 
: 2757 779 1°! ROUTINE VALUE: 
3 1644 He! : Completion status to be returned to requestor. | 
: $he8 3782 1 ! SIDE EFFECTS: 
3 2761 3783 1! NONE 
: g76¢ 3786 1! | 
3 276 785 1 in 
; 764 3786 (1 
: 2765 3787 2 BEGIN | 
: 3766 788 
: 2767 3789 2 
; ibe giae ; } Ensure that the requestor has OPER privilege. | 
: $758 3798 IF NOT .BBLOCKCMBXCACM$Q_PRVMSK], PRVSV_OPER) | 
3; 2771 3793 2T 
i 307 3794 ¢ RETURN JBC$_NOOPER: | 
3: 277 3795 
: e774 3796 3 
: 2775 3797 2 SS$_NORMAL 
3; 2776 3798 1 END; | 
0000 00000 QuI_RESERVED_FUNC_1: 
. WORD Save Wipe : 37609 | 
50 00000000' EF D0 00002 MOVL 7 3792 | 
08 06 A EO 00009 BBS i {Ro 1 : | 
50 00042894 8F DO 000g MOVL #272532 in” > 3794 
04 0001 RET : | 
50 01 DO 00016 1$: MOVL , RO >; 3798 | 
04 00019 RET : 


; Routine Size: 26 bytes, Routine Base: CODE + 1205 
| 


3; 277 799 1 ROUTINE QUI_RESERVED_FUNC_2= 

: e277 00 1 = _ 

: 2780 O1 1 S44 

3; e7 B06 & 

: 27 ¢ ti 1 ! FUNCTIONAL DESCRIPTION: 

; f 7 Spe } } This routine processes the QUIS_RESERVED_FUNC_2 request. 

: 2785 44 1 ! INPUT PARAMETERS: 

: 2786 807 1! NONE 

: 2787 808 1! 

; 2788 809 1 ! IMPLICIT INPUTS: 

: 2789 519 1! NONE 

3; 2790 a os 

3: 2791 gig 1 ! OUTPUT PARAMETERS: 

3; 279 81 1! NONE 

: 279 814 1! 

: 2794 3815 1 ! IMPLICIT OUTPUTS: 

: 2795 3816 1! NONE 

; 2796 seik 1! 

: 2797 818 1 ! ROUTINE VALUE: 

; 2798 3819 1! Completion status to be returned to requestor. 

3; 2799 3820 1! 

; 2800 3821 1 ! SIDE EFFECTS: 

; 2801 3856 | NONE 

; 280 38 1! 

; 280 3824 1 !-- 

; 2804 3825 1 

; 2805 3826 § BEGIN 

3 sane 3827 

3; 2807 3828 § 

; 2808 $65) ! Ensure that the requestor has OPER privilege. 

; 2809 3830 2! 

; 2810 3831 § IF NOT .BBLOCKCMBXCACM$Q_PRVMSK], PRV$V_OPER] 

5 sei) te THEN 

; Sig 383 5 RETURN JBC$_NOOPER; 

: 281 3834 

> 2814 3835 2 

; 2815 7656 2 SS$_NORMAL 

3; 2816 3837 1 END; 

0000 00000 QUI_RESERVED_ FUNC_2: 
-WORB Save nothing 
50 00000000" EF p00 00002 MOVL e 
08 06 AO ag EO 00009 BBS es 6(RO), 1% 
50 00042894 F pO sie MOVL #272532, RO 
04 49 RET 
50 01 DO 00016 1$: MOVL #1, RO 
04 00019 RET 


; Routine Size: 26 bytes, Routine Base: CODE + 121F 
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13 
service 1. Sep~1984 05:34 AX-11 Bliss-32 V4.0-74 
14- ~3007138? 99:93:32 NOBCTLe SREIGE TOUT b30 55 
ROUTINE QUI_TRANSLATE_QUEUE(GQC)= 


44 


i 
FUNCTIONAL DESCRIPTION: 
This routine processes the QUIS_TRANSLATE_QUEUE request. 


INPUT PARAMETERS: 
GQc - Pointer to $GETQUI context block. 


IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


OUTPUT PARAMETERS: 
NONE 

wheres B cinstonine 

ROUTINE VALUE: 


Completion status to be returned to requestor. 
SIDE is 


= 

LOCAL REF BBLOCK; ! Pointer to SGETQUI context block 

LITERAL DSC: BBLOCKCSDSC_K_LENGTH]; ! Short descriptor for queue name 
K_SDSC= K_REC_1; 


Ensure that a search name was specified. 
iF - . ITEM_PRESENTCQUI$_SEARCH_NAME J 
EN RETURN JBCS$_MISREQPAR; 


Validate the search name. 
it = Ar eet OBJECT_NAME ( 
E_SEARTH_NAMECSDSC_W_LENGTH], .VALUE_SEARCH_NAMECSDSC_A_POINTER), 
EN RETURN JBC$_INVQUENAM; 


Return information about the selected queue. 
RETURN, ‘peneae 
Gene RATE. TABLE ( 


dD 13 
GETQ SGETQUI service 19- Sep-1 AX-11 Bliss-32 V4.0-74 
Gha-001 14- Sep-1 3B 99: 93: 34 aMBCTLe SReIGE TOU 65075 
> 2875 P 3895 QUI$_QUEUE_NAME, 
5 287 %6 K_SDSC, K_COPY_SDSC, FALSE, 0, 
3 7 9 TRUE 
: 2878 98 0, SbSC) 
: 2879 899 1 END; 
01 39 -BLKB 3 
0000 0000 01240 “WORD 0, 0 
00 01244 “BYTE 0 
0004 00000 aul ~ TRANSLATE. QUEUE: - 
52 00000000" EF 9 00002 MOV TEN PRESENT+9, R2 
SE 08 C2 00009 SUBL 
08 62 05 €0 0000C BS ITEM. PRESENT+9, 1$ 
50 00048108 8F DO 00010 MOVL ne RO 
04 00017 RET 
SE DD 00018 1$: PUSHL SP 
0318 C DD OOO1A PUSHL VALUE_SEARCH ae 
7E 0319 ¢2 3¢ OO01E MOVZWL VALUE~SEARCH-NAME, -(SP) 
000000006 EF 03 FB 0002 CALLS #3, VALIDATE ~OBJECT_NAME 
08 50 €8 OO02A BLBS 
50 00048018 8F DO 90020 MOVL 4294936, RO 
04 00034 RET 
SE DD 00035 2$: PUSHL 
7E 01 7D 00037 ova i, apes 
BA AF 9F OO03A PUSHAB 
04 AC DD 0003D PUSHL 
F2F3. CF 05 FB 00040 CALLS aS RETURN_RESULT 
04 00045 RET 


; Routine Size: 70 bytes, Routine Base: CODE + 1245 


0), 
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13 
GETQ $GETQUI service ibese -1984 00:05:34 AX-11 Bliss-32 V4.0-74 Page 92. 
+ 1 1e-8ep-19 4 99:93:32 NOBCTL SREIGETOUL B3e63 . (22), 
$ + 2 9 } ROUTINE PROCESS_ONE_OPTION(CODE,VALUE_SIZE,VALUE_ADDRESS) = | ; 
: Sees 902 | I++ | 
: 4 905 1! ‘ 
P4 5 904 1 ! FUNCTIONAL DESCRIPTION: : 
; 28 905 1! This routine validates and stores one parameter value for the S$GETQUI ‘ 
: 288 9 $ 1} service. ‘ 
; 2888 907 1! : 
; 2889 908 1 ! INPUT PARAMETERS: ; 
; 2890 yor 3 | COD - SGETQUI item code. ‘ 
; 2891 910 1! VALUE _SIZE = Length of item value. ‘ 
; 34 4p ! VALUE_ADDRESS = Address of item value. : 
3 2894 918 1 ! IMPLICIT INPUTS: 3 
s 344 aie : } MBX - Pointer to buffered mailbox message. ; 
: Say 916 1 | OUTPUT PARAMETERS: | : 
3; 2898 917 1! NONE ; 
; 2899 918 1 | | ; 
; 2900 3919 1 ! IMPLICIT OUTPUTS: : 
3 $20) $050 : Values in the item List in internal storage. | ; 
; 290 3392 1 ! ROUTINE VALUE: 3 
3: 2904 $05 1! Completion status. | : 
3; 2905 924 1! | 3 
3; 2906 98? 1 ! SIDE EFFECTS: $ 
: 2907 926 1! NONE F 
3 sous 3927 1! 3 
3; 2909 3928 1 !-- 3 
3; 2910 3085 1 $ 
3; 2911 3930 2 BEGIN $ 
3; 291 3931 2 MAP : 
; 291 3038 2 VALUE_ADDRESS: REF BBLOCK; ! Pointer to parameter value 3 
: sare 3933 2 F 
3: 2915 so%e 2 5 
3: 2916 935 2 OWN : 
3: 2917 3936 2 REQUIRED_VALUE_SIZE: 3 
; 2918 3937 2 VECTORCMAX- GETQUI_ITEM+1,WORD,SIGNED] PSECT(CODE) PRESET( 3 
3 2919 3938 § QUIS_RESERVEB_INPUT_1J= 4, 3 
3; 2920 3939 QUIS_RESERVED_INPUT_2J]= 0, : 
3; 2921 3940 2 QUIS$~SEARCH_FCAGSJ= 4, : 
; 3922 3941 QU1$~SEARCH_NAME J= 0 : 
: 292 3948 QUI$~SEARCH-NUMBERJ= 4); : 
: ose $00 3 
3: 2925 944 3 
3: 2926 Seen LITERAL r 
> 2927 946 K_OUTPUT_ITEM= i. | : 
3 $356 947 2 K_STRING= ¢: : 
: 36? 948 K_ VALUE= 3 ‘ 
3; 2959 949 | : 
: 2931 950 : 
3 86 951 OWN 3 
: 293 936 VALUE_STORAGE_CASE: ; 
3 2934 95 VECTORCMAR GETQUI_ITEM+1,BYTE] PSECT(CODE) PRESET( | 3 
3 2935 954 QUI$_ACCOUNT NAME J= K_OUTPUT_ITEM, ; 
; 3936 955 QUIS"AFTER_ TIME J= K-OUTPUT"ITEM, | ; 
3: 2937 956 QUIS"ASSIGNED_QUEUE_NAME J= K_OUTPUT_ITEM, 3 
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; Routine Size: 112 bytes, Routine Base: CODE + 13AB 


13 
TQ SGETQUI service ihege =-1984 :05:34 AX-11 Bliss-32 V4.0-74 Page 96. 
Ghacbo1 ba aets 1 99:93:32 MBBCTL sReTGE FONT 63279 9° 22). 
13 13 0000¢ BEQL $ ; | ; 
08 3 0 BGEQ 3 + 4057) ; 
08 AC D 1 CMPL VALUE SIZE, RO : ; 
9 18 1 BLEGU 2$ : ; 
1 19 BRB 6$ : ’ 
50 08 AC 01 00018 1$: CMPL  VALUE_SIZE, RO + 4061 ’ 
eC lg O1F BNEQ 6$ ; ; 
50 56 A : 021 2$ MULL3 #10, R6, RO + 4067 : 
20 00000000"EF 40 i 0 5 MOVAB VALUE_GETQUI_BASECROJ, VALUE_STORAGE : ; 
; 1 : « p d MOVL § VALUE-ADDRESS, R + 4077 : 
2 01 FF6B crag F 00 1 CASEB VAL F-STORAGE _CASECR6J, wi, #2 : 4070 ; 
0027 0010 006 8 3: «WORD a$- 7° ; : 
8$-3$° : : 
60 08 ac 80 00036 4$: MOVW § VALUE_SIZE, (VALUE_STORAGE) : 4076 ; 
02 Ad 61 7D 0004 MOVO  (R1),~2(VALUE_STORAGE) + 4077 : 
1c 11 0046 BRB : 4070 ; 
08 AC D5 00048 5$: TSTL  VALUE_SIZE + 4084 ; 
08 if 0048 BNEO F ; 
50 00048090 8F 06 00040 6$: MOVL #295056, RO F ; 
60 08 aC BO 00055 7s: MOVW § VALUE_SIZE, (VALUE_STORAGE) + 4085 ; 
02 Ad 51 DO 00059 MOVL R1, 2tVALUE_STORAGE) : 4086 3 
05 11 0005D BRB + 4070 ; 
60 61 08 AC 28 OOOSF &$: MOovVC3 VALUE_SIZE, (R1), (VALUE_STORAGE) ; 4091 é 
00 00000000 EF 56 E2 00064 9$: BBSS 6, ITEM_PRESENT, 10$ + 4097 ; 
50 01 BO 9006¢ 108: MOVL #1, RO : 4099 : 
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G 
ROUTINE PROCESS_GETQUI_ITEM_LIST= 
'+¢ 
' 
FUNCTIONAL DESCRIPTION: 
This routine processes the item List of a $GETQUI service into internal 
data structures. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
Values in the item List in internal storage. 


ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


BEGIN 
LOCAL 
VALUE_CURSOR: REF BBLOCK ' Cursor over item List 
VALID_ITEMS: REF BITVECTOR; Pointer to mask of valid item codes 
MACRO 
BOOLEAN _VECTOR(IJ= 
BITVECTORCMAX _GETQUI_ITEM+1] PSECT(CODE) ALIGN(O) 
PRESET(BOOLEAN_VECTOR_1(XREMAINING)) %, 
BOOLEAN_VECTOR_1CAJ= 
CA) = TRUE %; 
OWN 


NO_BITS: 
~ BITVECTORCMAX_GETQUI_ITEM+1] PSECT(CODE) ALIGN(O) INITIAL(O), 


DISPLAY _CHARACTERISTIC_OPTIONS : 
BOOLEAN. VECTOR( 
QUIS_SEARCH_FLAGS, 
QUI$~SEARCH-NAME 
QUIS"CHARACTERISTIC_NAME 
QUIS" CHARACTERISTIC-NUMBER) , 
DISPLAY _FILE_OPTIONS: 
BOOLEA 


OOCEAN_VECTOR( 
QUIS_SEARCH_FLAGS, 


QuI 


73 


-B32 


AX-11 a Ps V4.0-7 
SRCIJGETQUI 


< — Evoactu 


1986 29:83:2 


K 13 
16-Sep- 
14-Sep- 


SGETQUI service 


68 


7. 

.- ¢ os oe _ 

. “oz = . ” ” 

—- = wo . oO w w 
Ow i- z ee | _ 
“xz [De Oo ew OO | = 
zo oct _— Ow O oa a 
¥%a Ow ._ ee Qouacr Oo o 
*- tt &e = ” wa. * 6668 *= = 
YM »- &wM ss Ow@- -r2Z2zZz2z2 aw ies 6 
Www. = Dw Pe et 4 ee ee 
m9 DU Os +i DVVVOIVVOWO Dvr D> 
QO004waitawo ad eens =SSSS> -Oar- 
ooo .waradct a rget ttt [vv] eed’) 
VVV4NNwW Of 2~trroau ZZOMMn3BM 
eevee ct @& § OGQvvw ttit_teeepeeepeeeees 
WWWWNWO- SHOCAeeECELELESEEEEE Zw 
atte ee eee oeaaaeaacaacaacaacH 


@#ee08esee ett 


eg te ee tt eg et te 
DDD 5DID5IBRN5IRN5IN5N O<4555252 5235525252 535355322525 
oooocc0c0cC00 MOSS SOSSSSSSSS9S°S 

>-o 

<zoO 

@ 

a 

” 

— 

a 


NOOO OOOO SOON OI OI OOO OI OI OI OI OI OI OI OI OS OI OI OI OI OI OI OI OI OI OI OSI ONIONS 


PDA O— MPI ST NOR. DPOK UM TMNOR- DOO MUM TMOR. DHOOM UM TNOR-DOOK VMTN 
MNANOODOODOOOOOORP-PRPA-APAPP_B- KR. DDWDMDDDDDDDAOOPOOOOAODOOOOOO 


LL ONIN 


*. 

(Fe) 8 
es + a) s me s 
ss We ww fF oO - 
“Y"«t wo Om aw —_ Ww 
. erKF VF Hao wz —- w 
'- @&s =< OW - @o- =O <= > 
Yseww §-§OoO ww « #s wo ve oo 
Ow@OMEk wm it o> w uwritt -_ = w 
<2 awe ‘4 *ZZMwwW + aA~= « 
+Sa09ZEa22 O22 Ew —wwwY + »-swe- 7 
aeZZe wes WO 22m -Owwi- SY «= 
Lhd (§ &erO KH ESawweadaadervtww © 
Ve ooos eo Wk >>000 J< 20. 
Qevv ted w 2 KEV VVU ZO) + 
~ssscu Vv wo 


82SsSSSSSS55>>>>D>>>>>D>D>D>D>DDDSD 
232353353535353353533533533332335333353553R>52>5>5>>5>>>>5> 
“YRS SSS SSS SS SSS SSS SSS seowoeo2@ 
>o 

zo 

—@ 

a 

“” 

— 

a 


aoooewnm 


ooren-— 


A A i i i Ai Al Ai Ai Ni Ni a a i Ai i Ni Ni Ni Ni Bi i oo i fn hl 


gaaaaaaa aaaaaaaaaaaaaadaa 


aaaaaaaaaaaaaaaaaaaaaaaadad 


ee Scan RAASSOOSOSOOORRANAKRE DOOD OHSOGOS HOCK 


NS TTF TITIAN 


OOO LLLLLL 


SE 


POVELVESVES VE VESENE NN ENENE DET PREPS R ELD PDE D PD ELD PROD PD BD PD OLD OD POD BD PD DD PD PD PD DD DD DDD 


eet Bi iege3¢ rhe cle 
JOBCTL.SRCJGETQUI .B832; 


Be 29:83:26 


13 
pI 


18-Se 
14-Se 


SGETQUI service 


ve001 


= 
2 
. oO 
. w 4 
ww = . — ees ese 8 
= = W s i db hh sa) 
>a - 2 be wEezw wm teen 
Zu 'wm . j925— | el eel cee eel 
z2~— «= w ww —- DEzu ed ae PP | 
oOaw- :_ 32> w Qt s: > >a.a0a00 
sss sees es “n07De- Y swe «= * © OxeZzuU . Ww od ed ed 
—OPN~TNOF-O ae) 8 VOwsaOe ww a& Baw ww Dz 2222288 
eevee tt wwoernsea . “200-4 *B -f€ + EQ * -2Owe<—e + —— oO 
Seeraecaecae *2aa0co ea = s + IE OGD aowe ee | NOACOdCEaZe += 2+ * s#eeeeees 
a t= wee YM Uh ZOO Z ewww ReOsIee LIE HM OOOOOOMm 
ee ee ee ee Sw s2< | worruk VEUNN>S DORK uw ZOwroZz< [vey reyreyreyrelrelry) 
WWWwWwWe = OSU wire rtutet, ey yee} HM LLY Ong ome ew tt dw ->> o> o> Ooo oS 
-FFFFFFttT Ty ey a-O HS XUVwU <Canse &F€uecnwn Sw ou = S al 4:4: 4-4-4: 4-4-4 
[= foe fem Fee em ‘Zcwx>5> +O ype > | (ew § tt ewer SDoaaawx —Oww www 
SeeceeececemwuwCOoMewawd araainw 222553833832 OoOwwwMawae —-MMMNnn ow 
tad de eo OWN) COC OODewwoe TA AwWoOW ce Le eee) VwwwwWwiW 
Qaaaaaaaaocaeacnrnr333 WM MLV V 44.02 27 YOAASoI90M333 weeeaeacarae 
eee ece ce eee epee ee ee 6 mm FCeereeeereeeeeeeeeeee ee ee bt om Gebel 
BPBRODEOPA AAPA PALA BA PAAR DD REAAAADA WY FAABAH ABA A FGM GAAPDM = AD ADMD 
poe Joe Some ee Joe Sm Joe ee em Fee Fee ee ee em em em em be em Be be be bem be be be bm be ee bee ee be em ee ee be bb be 
>oO wo 
<zoO >So 
~@ =o 
a w 
”" ” 
ond w 
a « 


NOSIS OOOO ONION ONION OOS OI OI OO ONIONS OI OI OI OI OO OI OI OI OI OI OI OI OI OI OI OI OI OI OI OI ONION OI OI OI OI ONS ONIONS ONIONIONS 


FNOP- DEO UMN TN OR- DAO WMT MOR. DAO MUM TMNOR. DHOOM MUM TNO DOOK—UM TN OOO 
IOI OOOO PPIVINY SF AF SF TF ST TT TANNIN OOO OOOO 00 OF 
MINN ONONI ONION 
SDFGS SSS SS SS SS SS SS SS SS STII II IIIT IT IIIS 


9a0000000000000000 aqaaaaaaaaaaaaaaaaaaadaaaaa aaaaaaaa 


t. «] OPA TU DOOK— UM TMNOPR. DHOK— CUM TNOR. DHOK— MUM TMOR. DOOK— TUM TNO DOOKU 
Seth seh eth DDD LD LD LD ID UD LD LD LD LD UD LD LD UD LD A A a a A LD LD Lh LD LR LR UR OD UD UD UD OD UD UD OD OD LD Odd Od Ode 
Dl ah a hh Al oA a Uh adh Lal ell ell eh elk ah Linh lh ah lh lh el diel lh ial all ll al) 


M13 
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: 3253 4371 QUIS$_RESERVED_OUTPUT_6), 
; 5 4 ig TRANSLATE_QUEUE OPTIONS: 
; § P 4274 BOOL EAN VECTOR 

; P 4275 GUIS” SEARCH WANE. 
: $258 4976 QUISTQUEUE NAME) , | 
3 0 4278 VALID_ITEM_TABLE: pe VES TORIMAK GETQUI_FUNC+1] PSECT(CODE) PRESET( | 
: 1 4279 Q01$_CANCEL_O 

; 6¢ 4280 QUIS"DISP PLAT. CHARACTERISTICI= DISPLAY. CHARACTERISTIC _OPTIONS, 
: 326 4281 QUIS"DISPLAY“FILEJ= DISPLAY-FILE_OPTIONS, 
: 3264 4 8¢ QUI$-DISPLAY-FORM = DISPLAY-FORM-OPTIONS, 

; 3265 4 QUIS"DISPLAY~J0BJ= DISPLAY-J0B OPTIONS, 

: 3266 4284 QUIS_DISPLAY- QUEUE J= DISPLAY QUEDE_OPTIONS 

; 326? 4285 QUIS-RESERVED_FUNC_1]= RESERVED FUNC =OPTIONS. 
; 3268 4 86 QUIS-RESERVED-FUNC-2J= RESERVED FUNC OPTIONS, 

: $8 4 87 QUIS" TRANSLATE_QUEDE J= TRANSLATE_QUEUE_OPTIONS), | 
: 3271 4289 INPUT ITEM: 

: 3 P 4290 BOOLEAN. VECTOR( | 
: 327 P 4291 GUIS RESERVED. INPUT_1 | 
: 3274 P 429 QUIS"RESERVED-INPUT—2, 

: 3275 P 429 QUIS-SEARCH_F GS, 

: 3276 P 429% QUI$"SEARCH-N | 
: 377 4295 QUISSEARCH ~NUMBER) ; 

; 3278 4296 | 
: 3279 4297 ay 

3 $509 : 38 Initialize to scan the item List. 

: 3282 4300 CHSF ILL (0 VALUE , STORAGE ~END = VALUE STORAGE _BASE, VALUE_STORAGE BASE); 

; 328 4301 g VA URSOR = MBXCACMST-ITMLSTI; 

3 $Sae rt VALID TYERS' = ~ VALID. ITER TABLEC: MBXCACM$W_FUNC]); 

; 3586 4304 ‘ q 
3; 3287 4305 ' Loop over all elements of the item List. 

; 3288 4306 ! 

; 3289 4307 WHILE .VALUE_CURSOR LSSA .MBX_END DO 

: 3290 4308 BEGIN 

; 3291 4309 LOCAL | 
3 3292 431i VALUE_SIZE, 
3; 329 4311 2 ' Item code 

> 3294 4312 STATUS: 

3 95 431 

; $38 $ei8 

; 24 ogi? Fetch and validate the item code. | 
: 239 4319 CODE = -WALUE =CURSORCO 0,16,0); 
> 3300 4318 VALUE_CURSOR = .VALUE CURSOR + | 
3 3301 4319 IF VEODE Lssu “iN GE TOU! iTen oR .CODE GTRU MAX_GETQUI_ITEM 

3 308 $339 THEN RET URN JBC$_INVITM 
; 330 4321 IF NOT VALID ITEMSC™ LODE) 
3 3304 4328 THEN RETURN JBCS_ INVITACOD; 

3 3305 3 ; ITEM, PRESENT -CODE) = 

; 4325 

3 $08 ie ' Fetch and validate the item's parameter value. 

3; 3309 43 ! 


SGETQUI service 


vO4=001 


** 
-_ 
« 
Oo 
w 
a 
2 
= 
4 
uw 
2 
= 
<= w 
> ™~ 
. _— 
w 
. a 
uw ww 
~ p— 
-_ a 
w =< 
‘ >. 
w °co 
— 
| ++ 
4 
- = ca 
to] ° oo 
Oo -- WwW 
. mn ac 
O-ww> 27> 
-—-~NwoOrF YwN 
>> Oc i) 
o-ur- ww 
. wo ee Dee] 
Ooaw — «> — 
uwoz << 
aeno2z >> 
oan ae ee 
“nor F> 
Qvae nil 
2] Ow 


2a OoOwoca 
a> GWwvers 
iON wow 
> w wit 
*hwWME ww 
vowsa> 
1eZcorr oy 
oad-aict 
wovu- o> 
rc We 
OW -Dazw 
Mw awn 
' wne2ru af 
ww DO w = 
25D. . oe 
ajo a <= 
<<euuw z oO 
>> w =. 
*e. 
Aa 
“2 
Ww 
POET WIP OUCUOIO 
Cee eA Ri Re. 
CUNEO 
PEEP 


vwvwvwvwvvavvIw 


OK WMTMOP- DOO 
errr errrenrK WN 
VIETNAM 


w” 
2 
oO 
-_ 
-_ 

a - 
oO co 
t ' 

vo w 
_ ~~ s 
_ ame orn | on rl om 
” @ zu mM ™ 2m) aw Nu wm 
SOOIOOTVNHO 1 OF OK WHO I ONWOK- WO I 
uw = -_ _ 
- a a -— 
Vv oO oO a 
www Www bWWOOw 
Co Ee, oe ee er a et 
<>>> J>>>>>> If>>>>>> I> 
ZLOOOO—-MMDMDDOODDCMHMHMDMDMDMHOH 
J © © © 6m © © © @ © 8 @ meee @ -™ « 
‘ t 4 a 
e > > = 
< aa < < 
—_ = H _ 
a. a a a 
wn” ” wm ” 
— _ — _ 
Qa a oa a 


& 
o oo S&S wOywoOoO So uwowoo o 


“Co om oS 4OoCoOo- Oo .OOCOR, ®& 


- 16, -88, 9, 1, -8, 56, 28 
127 
S: 


» it2 
4 


: 
f On 
* 32 


$f 


-104 
-128 


1 


RESERVED. FUNC opr 


OPTIONS: 
BYTE 
,OYTE = 
QUEUE 
YTE 


F TRANSLATE 
~-BLKB 


BLKB 


“BYTE 
C VALID_ITEM_TABLE: 


QUEUE 
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DISPLAY_ 
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Sie 2 et ere HEREHOMs SABRE Bad Pde Saatt 32 roe JG 


-BYTE 0£4] 
00000000" 00000000° 00000000 4 Se BANOO B1e88 -ADDRESS NePPAY EI Ese one enistiC. OPTIONS, 


00# 014A4 INPUT cane” 
01 80 70 014AD -BYTE 


007C 00000 PROCESS a par aren LIST: 


ve_R2,R3_.R4.RS.RO : 4100) 
56 00000000" EF 9E 00002 MOVAB vale STORAG GE_BASE, R6 ; | 
OSAO BF 00 6E 00 2c 90009 MOVC5 (SP), #0,-#1440, VALUE_STORAGE_BASE ; 4300 
50 F440 C6 dO 90011 MOVL : 4301) 
52 SA AO 3 0016 MOVAB Sotho). VALUE _CURSOR : 
50 58 AO 3C OOOIA MOVZWL 88(R + 4302 
55 AA AF4O DO OO01E MOVL VALID. {TEM TABLELROJ, VALID_ITEMS ; 
F444 (6 52 D1 00023 1$: CMPL - VALUECURSOR, MBX_END : 4307 
3¢ 1E 00028 BGEQU 6$ ; 
53 82 3¢ 0002A MOVZWL (VALUE_CURSOR)+, CODE : 4317) 
0D 13 00020 BEQL + 4319 
Q000005E 8F 53 1 000¢F CMPL CODE, #94 : 
04 1A 00036 BGTRU : 
08 65 53 £0 00038 BBS CODE (VAL ID_ITEMS) , 3$ + 4321 
50 00048060 &F BO 0003¢ 2$: MOVL #295608 : 4322 
00 66 53 £2 00044 3$ BBSS CODE. ITEM_PRESENT, 4$ + 4323 
54 82 3C 00048 4$ MOVZWL (VALUE CURSOR)+, VALUE _SIZE : 4328 
52 DD 00048 PUSHL VALUE E PURSOR : 4330 
18 BB 0004D PUSHR #*M<R3,R4> F 
FEA? CF 03 FB OO04F CALLS #3, PROCESS _ONE_OPTION ; 
12 50 £9 00054 BLBC STATUS, 7$ ~ > 4331 
05 99 AF 53 £1 00057 BBC CODE, INPUT_I : 4332 
52 54 ¢O 0005¢ ADDL2 VALUE_SIZE, Stitt: _toRsoR + 4333 
C2 11 0005F BRB : 
52 08 CO 00061 S$: ADDL2 #8, VALUE_CURSOR > 4334 
BD 11 00064 BRB 1$ : 4307 
50 1 DO 00066 6$: MOVL #1, RO + 4339 
04 00069 7$: RET : 


; Routine Size: 106 bytes, Routine Base: CODE + 1480 
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001 


v4 


aLIST, PREV 


GQC, PREV 


0000 00000 FIND_Gac: 


24 00000000" 
51 
CODE + 151A 


AC 
61 


04 
Routine Base: 


31 bytes, 


; Routine Size: 


14 
GETQU SGETQUI service 16-Sep-1 4 4 AX-11 Bliss-32 V4.0-74 Page 105) 
v04-001 Ve-$ep-1984 90:53:26 — Loacte sResee faut 133673 25) 
H 77 4393 1 GLOBAL ROUTINE GETQUI_SERVICE= 
; 3378 4394 1 | 
; 3379 4395 1 !++4 
; 3380 4 38 1! 
; 8) 4397 1 | FUNCTIONAL DESCRIPTION: 
3 B¢ 4398 1} This routine processes the sete 7 type: 
; 338 4399 1! TQuUI get queue information 
3 $age Pres ] by dispatching to a request-specific routine. 
@ | 
; 3386 440 1 | INPUT PARAMETERS: 
: 3387 4403 1! NONE 
; 3388 4404 1 
; 89 4405 1 | IMPLICIT INPUTS: 
3 i Pets : MBX - Pointer to buffered mailbox message. 
; 3390 4408 1 | OUTPUT PARAMETERS: 
; 339 4409 1! NONE 
3 3394 4410 1 
; 3395 4411 1 | IMPLICIT OUTPUTS: 
: 3396 o1¢ ii NONE 
; 3397 441 13 
; 3398 4414 1 | ROUTINE VALUE: 
; 3399 4415 1! Completion status to be returned to requestor. 
; 3400 4416 1! 
; 3401 4417 1 | SIDE EFFECTS: 
: 3402 4418 1! NONE 
; 3403 4419 1! | 
: 3404 4420 1 I- 
; 3405 4421 1 
: 3406 1t5§ 2 BEGIN 
: 3407 4423 2 OWN | 
; 3408 4424 PROCESSING ROUTINE: VECTORCMAX_GETQUI_FUNC+1] 
: 3409 4425 2 PSECT(TODE) PRESET( 
; 3410 4426 2 CQUI$_CANCEL_OPERATIONJ= QUI_CANCEL_OPERATION, | 
3 3411 4427 2 CQUIS_DISPLAY_CHARACTERISTICJ= oo =DISPLAY ~CHARACTERISTIC, 
> 3412 4428 2 CQUI$S~DISPLAY~FILEJ= QUI~DISPLAY-FILE, 
3 3413 4429 2 COU $"D1 SPLAY"F ORMJ= QUI“DISPLAY™ FORM, 
3 3414 4430 2 QUIS$"DISPLAY—J0B)= QUI-DISPLAY_JOB, 
3 3415 4431 2 FOULS RESERVE aeiaes QUI_DISPLAY QUEUE, 
: 3416 4432 2 QUIS"RESERVED_F 1J= QUITRESERVED. FUNC -}- 
3: 3417 44335 2 int RESERVED FUNC “22 QUI-RESERVED-FUNC 2 
; 3418 4434 2 QUI$~TRANSLATE_QUEOE J= QUI~TRANSLATE_QUEOES ; 
3; 3419 4435 2 
3 130 443 LOCAL 
: 3421 443 GQCc: REF ! Pointer to SGETQUI context block 
: 3422 4438 SAVED_GQC: BBLOCETGOC. K LENGTH), ' Saved GQC before operation 
: 3423 4439 STATUS_1 ' Status return 
3: 3426 4440 STATUS -}: ' Status return 
; 435 4441 | 
: 3426 444 | 
3 tt rer } Ensure that the function code is in range. 
3 439 4445 b1AG TRACECI) = XCACMSW_FUNC]; ! see diagnostic info **** 
> 3430 444 -MBXCACMSW_FUNC) LSSU MIN_GETQUI_FUNC 
3 rtf eri OR nb ACMS$W"FUNC) GTRU MAX_GETQUI "FUNC 
z 135 444 EN RETURN JBC$_INVFUNCOD; 


Pr ye TE TETETETEIETE IEEE eee eee eee eee re rere re rere re re rererererererererererererererere rere ty) 


SGETQUI service 
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4 4450 | : 
r 2 431 GETQUI_COUNTC .MBXCACMS$W_FUNC]] = .GETQUI_COUNTC .MBXCACM$W_FUNCJ] + 1; ° 
: . tte : Ensure that the queue file is open, and lock it. | : 
440 ree IF .MBXCACMS$SW_FUNC] NEQ QUIS_TRANSLATE_QUEUE ; 
441 445 THEN - 
44 4458 BEGIN | ; 
44 4459 IF .QUEVE_FABCFAB es EQL 0 THEN RETURN JBC$_JOBQUEDIS; ; 
444 4460 LOCK QUEUE_ FILE ° 
445 4461 END; , 
446 446 ° 
3447 44 e 
3448 46464 ' Process the item List. ° 
3449 4465 i 
450 4466 STATUS_ 1 = PROCESS GETQUI_ITEM_LIST(); 
7 2 1F NOT “STATUS. 1 1 TREN RETORN .STATUS_/; 


! 
! 
GQC = FIND_GQC(.MBXCACMSL_PIDJ); 


: If none found, allocate one. 


| 
| 
! Locate the SGETQUI context block. 
iF .GQC EQL 0 | 
THEN 

| 


8 
GQC = ALLOCATE_MEMORY ( 
C PID] = “Taran pb): 


SQH$K_RECNO; 
SQHS$K_RECNO; 


2 
BS Maia 
Save the original context block. 


CHSMOVE (GQC_K_LENGTH, .GQC, SAVED_GQC); | 


Set the forced wildcard flag if required. 
if .1TEM_PRESENTCQUIS$_SEARCH_FLAGS) | 
GOCCGQC_FLG_WILDJ = .VALUE_SEARCH_FLAGSCQUISV_SEARCH_WILDCARD); 


: Dispatch to execute the request. 
STATUS_2 = (.PROCESSING_ROUTINEL .MBXCACM$W_FUNCJJ)(.GQC); 


Be Be Be Oe Be Se Be Se Se Be Se Be Ge Se Se Se Se Ge Se Se Ge Se Ge Se Ge Se Ge Gs Se Se Se Se Ge Se Ge Ge Se Se Ge Se Ge Ge Se Se Ge Se ee Ge Ge Se Se Se Fe Sees Sees 


Link the $GETQUI context block to the open List or deallocate it. 


14 | 
a HERETO BATHE GSO RS Mo 


Vv 

: 3491 4507 IF .GQCCGQC_WILDCARDS] NEQ 0 

; 349 4308 THEN 

; 349 450 BEGIN 

> 3494 4510 UPDATE_GETQU ~LOCKS (SAVED GQC, .GQC); 
3; 3495 4511 ity. at ae -OP EN_GETQUI _CIST; 

; 3496 t21§ OPEN_GETQUI_L ST's .GOC; 

: 3497 451 ND ~ 

; 3498 4514 
: 3499 4515 BEGIN 

; 3500 $2i8 UPDATE_GETQUI LOCKS {SAVED -GQC, 0); 

3; 3501 451 DEALLOCATE _MEMORY(.GQC); 

3 206 4518 END; 

; 350 4519 

; 3504 4520 

; 3505 4321 .STATUS_2 

; 3506 4522 1 END; 


| 

| 

fea! 

01539 .BLKB 3 | : 

0o# 0153¢ PROCESSING ROUTINE :, | 3 

ere re, See SeCeeee Seeeeeeee Sees aoe SS a AT SPCAU "CHARACTERISTIC, = ee | 
QUI~DISPLAY™ FILE, QUI DISPLAY, FORM, « s : 

QUI“DISPLAY~ _BISPLAY_QUEUE, : | : 

QUI TRANSLATE _QUEUE, AAR LAC ERUEGE FUNC ute © 3 | 3 

QUI “RESERVED_FUNC : | : 

01FC 00000 .ENTRY GETQUI_SERVICE, Save R2,R3,R4,R5,R6,R7,R8B  ; 4393 ; 

58 ED72. CF 9E 00002 MOVAB UPDATE~GETQUI_LOCKS, R8 : ; 

57 00000000" EF 9E 00007 MOVAB MBX, R7 : ; 

SE 3c C2 0000E SUBL2 #60. SP : ; 

50 67 DO 00011 MOVE MBX, + 4445 ; 

50 58 AO 3C 00014 MOVZWL 88(RO), RO : F 

FDC4 «C7 50 06 00018 MOVL RO, DIAG_TRACE+4 : : 
05 13 0001D BEQL ss 8 > 4446 : 

09 50 B1 OOOTF CMPW RO. "9 + 4447 F 

08 1B 00022 BLEQU 2$ : : 

50 00048068  8F 00 00g 4 1$: OVL #295016, RO + 4449 ; 

FF34 C740 06 00 C 2%: INCL —GETQUI_COUNTCROJ > 4451 ; 

0 50 B1 00031 CMPW CRO, # > 4456 F 

15 13 900 BEQL = 4 : ; 

00D6 C7 83 900 6 1ST QUEUE _FAB+2 > 4459 : 

50 00048078 8F BO 9005¢ OVL #295032, RO : 3 
000000006 00 FB dogus 3$ CALLS 40, LOCK_QUEUE_F 4460 : 
11D4 00 FB 00048 4$ CALLS PROCESS YE rOUT ~ITEM_LIST : 4466 | F 
50 Fs 00059 BLBS ork Aus T 58 + 4467 ; 

4 0005 RET : ; 

67 D0 0094 5$ MOVL : 4472 : 

AO DD 00057 PUSHL  40(RO) ; 3 

01 FB 0005A CALLS #1, FIND_GQC : : 


; Routine Size: 222 bytes, Routine Base: CODE + 1564 


H 14 | 
GETQ S$GETQUI service 16-Sep- AX-11 Bliss-32 V4.0-74 Page 108 | 
Ghac001 14- ~fep- 1382 99: 93: x JOBCTL.SR Re ice TOU 1. B3oe3 . 255, 
56 50 D SF MOVL , GaC ; | ; 
1 09 62 BNEQ + 4477) ; 
000000006 EF : F 6 CALLS #0, ALLOCATE_MEMORY + 4480 ; 
6 D0 00068 WovL RO. Gar : | ; 
0 67 0D oF MOVL MBX, R + 4481 ; 
4 Rb 28 AO D 99 MOVL  40(RO), 4(GQC) : ; 
C Ab 01 00 00076 MOVL , 12¢G0C) + 448 ; 
14 6 01 D 007A MOVL #1, : (GQC) + 4483 | : 
1¢ Ab 91 00 Ove MOVL. #1 (GOC) + 4484 ; 
6E 66 C 0082 6$: movC3 #66, (GQC), SAVED Gac + 4490 ; 
eg RD . 3 eee bt EF pooRe 1 : 4093 
ol - 03 30 0 O0095 7$ hove Aa "4 nds brea) : 4502 
50 58 AO 9E $b09¢ MOVAB 88(RO), RO ; : 
50 60 3C OO0A0 MOVZWL (RO), RO : ; 
50 FF30 CF40 DO O00A3 OVL  PROCESSING_ROUTINECROJ, RO ; : 
56 DD 000A9 PUSHL  GQC F : 
60 01 FB O00AB CALLS #1, (RO) : ; 
52 50 DO OOOAE MOVL RO, STATUS_2 ; | : 
OF 08 A6é 93 00081 BITB 8(Gac), #15 : 4507 
12 13 00085 BEQL © 8$ : | 
56 DD 00087 PUSHL GC : 4510 
04 AE 9F 00089 PUSHAB : 
48 02 FB 000BC CALLS 32. eOPOATE GETQUI_LOCKS ; 
66 48 Aa? DO 000BF MOVL OP EN GETQUT LIST, (GQC) F 4511 | 
48 A7 56 DO 000C3 MOVL § GQC, OPEN_GETQUI LIST : 4512 
11 11 000C7 BRB : 4507 | 
7E D4 000C9 8S: CLRL = (SP) : 4516 
04 AE 9F 000CB PUSHAB SAVE : | 
68 02 FB OOOCE CALLS We UPDATE ~GETQUI_LOCKS : 
56 DD 00001 PUSHL gat + 4517) 
00000000G_ EF 01 FB 000D3 CALLS ; DEALLOCATE _MEMORY : 
50 52 DO OOODA 9S: MOVL STAT _2, RO + 4522 | 
04 000DD RET : | 
| 
| 
| 
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14 
service 1hese -1984 05:34 AxX-11 B 
12-8 08- 1 3b 99:93:32 JOBCTL. 
GLOBAL ROUTINE DELETE_GETQUI_CONTEXT(PID): NOVALUE= 


144 


' 
FUNCTIONAL DESCRIPTION: 
This routine deletes the $GETQUI context block for a process, if one 
exists, when the process deletion message is received. 


INPUT PARAMETERS: 
PID 


; 32 V4.0-74 
ETQUI.B832; 


- Process ID. 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
LOCAL 
GQC: REF BBLOCK; ' Pointer to $GETQUI context block 

Locate the $GETQUI context block. 
GQC = FIND_GOQC(.PID); 
IF .GQC NEO O 
THEN 

BEGIN 

UPDATE _GETQUI_L 


1 _LOCKS(.GQC, 0); 
DEALLOCATE MERORY(.GQC); 
END; 
0004 00000 .ENTRY DELETE_GETQUI_CONTEXT, Save R2 
04 ac DD 9002 PUSHL PID 
FECE cf QI F 900 CALLS #1, FIND_GQC 
2 0 DO O000A MOVL RO. GQC 
12 13 00000 BEQL ~=sédSS 
7E D4 O000F CLRL = = (SP) 
52 DD 00011 PUSHL GQ 
EC82 CF 0 FB 90015 CALLS #2, UPDATE_GETQUI_LOCKS 
DD 0001 PUSHL  GQ¢ 


v64=001 


3; Routine Size: 


SGETQUI service 


00000000G_ EF 


34 bytes, Routine Base: 


CODE + 1642 


Sep-1 
1b-f0 Sep-1 


oe Booz! 18: 


Be 98:93:32 


vi, 


CALLS 
RE 


AX-11 Bliss-32 V4.0-74 
JOBCTL.SRCIJGETQUI .B32; 


DEALLOCATE_MEMORY 


Page 
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GEAR 


Be Se Se Ge Be Se ee Fe Se Ge Se Ge Fe Se Fe Ge Ge Ge Fe Ge Ge Ge Fe Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Se Ge Se Ge Se Ge Se Se Se Se Se Ss Se Geese Se Se Se Sesser 


service 


=138¢ 90:03:34 AX-11 Bliss-32 be tL 
1984 22:33:24 JOBCTL.SRCIJGETQUI .B32; 
GLOBAL ROUTINE DELETE_OPEN_GETQUIS: NOVALUE= 
144 
' 

FUNCTIONAL DESCRIPTION: 

This routine deletes all context associated with open $GETOQUI operations 

when the queue file is closed. 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 
Delete active S$GETQUI context blocks. 
WHILE .OPEN_GETQUI_LIST NEQ 0 DO 
BEGIN 
LOCAL , 
Gac REF BBLOCK; ' Pointer to $GETQUI context block 


GQC = .OPEN_GETQUI_L 
OPEN _GETQUI_ LIST = 


IST; 
~GacEGac_LINK); 
DEALCOCATE MEMORY (.GQC) 


Delete active $GETQUI lock blocks. 
WHILE .GQL_ACTIVE_LIST NEQ 0 DO 
BEGIN 


REF BBLOCK; ' Pointer to $GETQUI Lock block 


TQ SGETQUI service 16-Sep-1984 4 AX-11 Bliss-32 V4.0-74 Page 
Goacbot ) a 9a 1382 99: 93: 3 JOBCTL.SRCIGETQUI .B32; ° 
; 3609 4623 END; 

3 3698 tes? ; END; 
OOFC 00000 -ENTRY DELETE_OPEN_GETQUIS, Save R2,R3,R4,R5,R6,R7 
57 00000000' EF 9 9002 MOVAB OPEN_GETQUI“LIST, R? 
50 67 DO 00009 1$: MOVL OPEN_GETQUI~ LIST, RO 
0— 13 0000C BEQL $ 
67 § D0 900¢ MOVL (GQC), OPEN_GETQUI_LIST 
DD 1 PUSHL  GQC 
000000006 EF 01 FB 90015 CALLS #1, DEALLOCATE_MEMORY 
ED 11 OOO1A BRB 1$ 
50 FC AT bg 0001C 2$: MOVL GQL_ACTIVE_LIST, RO 
22 13 00020 BEQL $ 
56 0 00 000 : MOVL RO, GOL 
FC OA? 66 DO 000 MOVL (GOL), GQL_ACTIVE_LIST 
7E 7C 00029 CLRQ (SP) 
7E 04 00028 CLRL -(SP 
0c A6é DD 900¢0 PUSHL 12(GQL) 
0000000C6 00 04 FB 00030 CALL #4, SYS$DEQ 
10 00 F8 AT 0% 2c 9003? MOVC #4, GOL_FREE_LIST, #0, #16, (GQL) 
FB AT 56 DO O003E MOVL GQL, GQL_FREE_LIST 
D8 11 00042 BRB 2$ 
04 00044 3$ RET 


; Routine Size: 69 bytes, Routine Base: CODE + 1664 


M14 
SGETQUI service 


; 31 4625 1 END 
; 361 4626 0 ELUDOM 


-EXTRN LIBSSIGNAL 


: PSECT SUMMARY 

: Name Bytes Attributes 

: COMMON 20st NOVEC, WRT, RD ,NOEXE, oid HS LCL, REL, pan oS Sit b td ts 
; CODE 1 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 

Se ee Bi Cl cael. 3 Sind, cape Symbols -------- Pages Processing 

s File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 256 1 1000 00:01.4 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:GETQUI/OBJ=OBJ$:GETQUI MSRC$:GETQUI/UPDATE=(ENHS :GETQUI) 
; Size: 4651 code + 6174 data bytes 

; Run Time: 01 0 


; Elapsed Time: 04:53.2 
: Lines/CPU Min: 338 

: (eee hile agi 37641 

3 pone Used: 696 pages 
; Compilation Complete 
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